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ONLY PRECISION SOFTWARE... 

OUR CUSTOMERS 

WRITE OUR BEST ADS! 

BASIC XL 

"BASIC XL is a fast and powerful extension of Atari BASIC, totally compatible with virtually all 
software. Its many features make programming easy, especially games that require player/missile 
graphics. For people writing business software or translating existing programs from other com- 
puters, the new string arrays and other string-handling features make the task manageable. 
BASIC XL is a truly professional language that should become standard in all future Atari com- 
puters. Overall Rating — A." The Addison -Wesley Book of Atari Software 1984 
BASIC XL SuperCartridge & Manual (Requires 16K Memory) $99.00 

ACTION I 

"For those who have found BASIC to be too slow or assembler to difficult, ACTION! is the logical al- 
ternative. ACTION! programs can increase speed from 50 to 200 times that of BASIC." Jerry White, 
Antic, February 1984 
ACTION! SuperCartridge & Manual (Requires 16K Memory) $99.00 

l\/IAC/65 

"For the serious machine language programmer or anyone interested in programming in 6502 
machine language, this package is a must. A lot of the good professional software on the market, 
games or otherwise, was written using this brute. Coding machine language with anything else is 
like trying to swim upstream in quicksand." ACE Of West Hartford, May 1984 
MAC/65 SuperCartridge & Manual (Requires 16K Memory) $99.00 

THE WRITER'S TOOL was designed 
for WRITERS who want to WRITE! 

When you want to write on your Atari * Computer — a letter, a business report, or a book — you want 
to concentrate on writing and not on the word processor that you are using. 

You want to write immediately without having to spend hours learning some fancy system or ■ 

remembering complicated commands. 

You want to write quickly. ..as fast as your imagination can fly. Then edit just as fast.. .correct mis- 
takes; change, add, or delete words and phrases; rearrange the sequence of paragraphs or entire 
pages without fearing that one slip of your fingers might wipe-out hours of precious work. 

You want to be able to save or retrieve your text files on any type of Atari compatible disk drive 
using either single-density or double -density disks without worrying about accidentally erasing 
files. 

You want to be able to print out your finished piece right away, using all of your printer's 

capabilities such as Pica, Elite, and condensed type; print two-columns on 8V'2" wide paper and 
proportional spacing; and print different types of characters: ciou.t>le - v^idLtln, bold- 
face, italics, underlined, »''>"=™"'p'' and ,„b.scripi- 

Compare THE WRITER'S TOOL with the others: feature for feature, dollar for dollar— if you can 
find a better word processor, buy it! 

THE WRITER'S TOOL* 

SuperCartridge, Program Disk, Tutorial & Reference Manual $129.95 

'Requires an Atari"' Computer with 40K memory, disk drive, and any 
Atari compatible printer. 

ATARI'" is the registered trademark of ATARI, INC. 



Now Available At Your Software Dealer! 
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Optimized Systems Software, Inc. 

1221 B Kentwood Avenue, San Jose, California 95129 (408) 446-3099 
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WHEN RETTERIES INCL UDED SET OUT TO 

DESIGN THE VERY BEST WORD PROCESSOR 

FOR AMR f COMPUTERS. . . 

THEY FOUND THEY ALREADY HAD IT 
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Few word processors have allowed Atari users to tap the full resources of their computer until Atari Paper Clip. . . 

Atari Paper Clip is an extremely powerful, fully featured word processor that will allow your Atari 
to operate to the limits of its potential, with an ease of operation and speed you've never thought possible. 

PAPER CLIP FOR ATARI®AND COMMODORE^OWNERS 
WHO WANT THE VERY BEST IN WORD PROCESSING. 



786 Queen St. West 
Toronto, Ontario, 
M5V 1Z1 Canada 
(416)596-1405 




INCLUDED 



^ 



"The Energized Software Company!" 

FOR A FULL COLOR BROCHURE SEND A STAMPED SELF-ADDRESSED #10 ENVELOPE TO BATTERIES INCLUDED. 
® © 1984 Batteries Included. All rights reserved. Atari and Commodore are registered trademarks respectively of Atari, Inc. and Commodore Business Machines, Inc. 
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TOP-DOS 

POWER YOU COMMAND. 



FRIENDLY POWER 

TOP-DOS unleashes the latent power of your 
ATARI computer-an amazing machine. TOP- 
DOS puts this power under your control. Here 
are just a few of its friendly features: 

COMMAND MENU & HELP FILES speed your 

mastery of the system. 

SUPERIOR STATUS DISPL.AY keeps you 

informed. Shows free memory, disk-drive 

configuration, and stale ofTOPS-DOS options. 

ERROR-CODE TRANSLATOR deciphers 

numeric codes into English. 

BREAK-KEYABORTIets you change your mind 

in mid-command. 

FULL SCREEN USE shows you what you've 

done. Keeps 23 ines of past operations on 

display. 

UNDELETE COMMAND rescues an 

accidentally-deleted file. 



POWER TO PLEASE 

Upgrade to TOP-DOS. Owners are delighted. 
You will be loo. Only $49.95. No risk. 30-day 
MONEYBACK GUARANTEE. 




SPECIFICATIONS 

Memory required: 32K 
Computers: ALL ATARI 
Disk drives: 1 to 8 

5Ki": Single-density, Double-density, Double- 
sided Double-density 
8": Double-density 
Riimdisk: A,XLON or MOSAIC, 
files: Single density: 64* 
Double density: 128* 
Sectors: Single density: Up to 944 

Double density: Up to 1968 
Memory-residency: 070()-lA80 (hex) 

(Same as ATARI DOS-2) 
Commands: 55 

(All ATARI l)0S-2 -h 40 more) 
Command options: 35 



SOPHISTICATED POWER 

TOP-DOS offers professional features found only in 
systems on much larger machines. Whatever your 
experience level, you will appreciate the flexibility an( 
power of this advanced system. Here are some 
examples of TOP-DOS's powerful features: 

MACHINE LANGUAGE MONITORS EDITOR allows yo 

to access and change bytes in memorj'. 
COMMAND KILE CAPABILI'IT permits you to simply 
and rapidly execute a complex sequence of command: 
"HELLO" PILE executes automatically on boot-up. 
SET COMMAND enablesyou to customize your systen 
Configure disk drives and seleclTOP-DOS options. 
FILE DIRECTORY COMMAND lets you choose: 
Alphabetization, the number of columns in the listin{ 
and the inclusion of deleted & open files. 
MEMORY MAP shows you the memory areas used by 
the Binary Load command. 
ONE-LINE COMMANDS saves you time and conserve; 
screen space, once you are familiar with the commam 
syntax. 

DOS-RESIDENT OPTION speeds your transfer 
between TOP-DOS & BASIC, or other programs. 



iCLIP^E 



SeeTOP-DOS at your dealer. If not available, you may 
order direct from ECLIPSE SOI'TWAKE, 1058-G 
Marigold Court, Sunnyvale, CA 94086,(408) 246- 
8325. 

DEALER INQUIRIES WELCOME 



TOP-DOS includes all the leatures ol its predecessor, DOS-MOD. TOP-DOS and DOS-MOD are trademarks ol ECLIPSE, ATARI is a registered trademark of Atari, Inc. Prices are subject to ctiange without notice. Shipping charges are prepaid 
California residents add 6.5% sales tax ($49.95 -i- 3.25 = $53.20). 

'An advanced version is available to TOP-DOS owners (at additional cost), which doubles the number of files, as well as adding a number of other features. 
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ATARI OWNERS FINALLY" 

The BASIC Compiler for Every Need and Every Program! 

Tired of using tinose other BASIC compilers that don't do the job for you? Is there o long list of valid 
BASIC commands that they don't support? Or don't they compile to true 6502 machine longuoge for 
moximum speed? Or do you hove to rewrite your whole BASIC program just to find out that it won't 
run when compiled? 

THE FIRST COMPLETE BASIC COMPILER FOR THE ATARI COMPUTERS THAT PRODUCES NATIVE 6502 CODE 
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BASIC, Qs we oil know, is on easy-to-use longuoge for 
ATARI computers. It's only disodvontoge is that it's SLOW. 
For Sonne types of functions, it seems to take BASIC 
programs forever to execute. We all know that the fastest 
language available is machine longuoge, the longuoge 
of ones and zeros. But don't worry! Now you don't hove 
to leorn o whole new longuoge just to hove progroms 
execute with machine longuoge speed. 
The AAMG BASIC COMPILER takes your BASIC progrom and 
converts it to machine longuoge for you. Furthermore, this 
machine longuoge program will outorun, simply by 
naming it AUTOF^UN.SYS, putting it on o disk with the DOS 
2.05 files on it, and turning on your computer with that 
disk in your drive. 
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Using the AAMG BASIC COMPILER, you con program in 
BASIC, the some BASIC you already know, ond get your 
progrom up and running. Then the AAMG BASIC COMPILER 
will convert your BASIC program for you, producing 
lightning-fost progroms to rivol those of the professionals. 
Imogine moving o ployer from the top of the screen to 
the bottom in less thon a second! Try thot using other 
compilers! Imogine what your programs will be like when 
they're compiled to true 6502 machine language. The 
AAMG BASIC COMPILER has been used to produce 
commercially ovoiloble orcode-type gomes from BASIC 
source code, ond con do the some for you! 
AAMG would even be interested in morketing your results! 
If you produce whot you believe to be o morketoble 
program, coll us for details! 




•compile to fost 6502 mochine longuoge not slow 

pseudocode (P-code)? 
•support trigonometric functions lil^e ATN, COS, SIN? 
•support mothematicol functions lilse CLOG, EXP, LOG, 

RND, sqr;' 

•support RUN "DiPROGRAM"? 

•support ATARI string hondling like A$(2,4) = "BOD'7 
•support COMmon variobles? 
•support the POP command? 
•support the LPRINT command? 
•support either RAD or DEG coiculotions? 
•support both integer and flooting point arithmetic' 
•operote in either single or true double densir/? 
•allow DATA statements anywhere in your program? 
•produce ossembly longuoge source code of your 
progrom for your own use? 

The MMG BASIC COMPILER does! 

The AAMG BASIC COMPILER comes with both single and double density versions on the some disk, and Is Qvailoble from 
your loco\ computer store, or send $99.95 plus $3.00 for shipping ond handling to: 

MMG Micro Software P.O. Box 131 Marlboro, NJ 07746 (201) 431 -3472 



Visa A^QsrerCo'd or COD order", occepied Hew Jersey residems pleose odd 6^o soles lox 
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Faster floating points. 

I was very interested to see an ar- 
ticle in Byte (August 1984) on the 
16-bit "65816" microprocessor as a 
code-compatible successor to the 
6502, as I have been doing a cer- 
tain amount of scientific comput- 
ing on the 6502 -based Atari 400 
and 800XL computers. 

The main advantage of Ataris is 
that interactive graphics is easy and 
nice, but there is a problem with 
speed: the BASIC and the floating- 
point hardware are pretty slow. Ac- 
cessing the floating-point routines 
with machine language only seems 
to speed things up by about 40%, 
at most, and is pretty clumsy. 

1 am sure you can anticipate one 
ot my two ciuestions: 

(1) Will it be possible to speed 
things up simply by replacing the 
6502 chip with the new 65816 in 
the Ataris, or would something tar 
more extensive be necessary? 

(2) 1 remember seeing somewhere 
an ad for a thing called the "Fast- 
chip," which would be a faster re- 
placement for the floating-point 
hardware chip tor the Atari, but 
that was a year or so ago. Are those 
still available, and do you know 
where 1 might get a couple? 

Thanks tor your help. 
Sincerely yours, 
W.J. Cocke 
Tucson, AR 

While the 65816 processor chip is 
code compatible, it is nut pin compat- 
ible. Adding one to the Atari ivnidd 
probably involve a redesigning of the 
computer's circuitry. If >'()!( want to 
change processors, the only thing that 
I can suggest at this time is the new 
CMOS 65C02. Not only is it pin 
compatible, but it even includes a few 
extra instructicms that will come in 
handy for any machine language pro- 
graniniers. 

The "Fastchip" is still beirig mariu- 



factured by Newell Industries, and it 
does speed your floating-point calcu- 
lations substantially. Contact: 

Newell Industries 
3340 Nottingham Lane 
Piano, T% 75074 
(214) 423-1781 

-C,B. 



A piece of the Action! 

1 have been programming in the 
Action! language by OSS for a cou- 
ple of months now, and have found 
it very versatile and powerful. Be- 
ing a newcomer to the language, I 
am eager to find more information 
on how to use it. 



However, 1 have found only a few 
articles about it in magazines. The 
manual that comes with the car- 
tridge does have a lot of informa- 
tion and examples, but, as is usually 
the case with manuals, parts of it 
are difficult to understand. 

I think a tutorial about Action! 
is needed. 1 have heard that OSS 
is working on a book that will be 
a tutorial on the language, but it 
will be some time before it is ready 
for sale. I think it would be nice if 
ANALOG Computing could offer 
some information, as well. 

Action! is so fast and powerful a 
language, I believe it deserves a col- 

(continued ori page 8) 




Need somethirg interesting to do with thai left over 

tiamburger? How about a dessert for someone on a diet? 

The recipe you need is only seconds away with: 

THE COMPUTER 
GOURMET 

The Computer Gourmet is your complete kitchen helper. 
Twelve servings too many? A quick keystroke and your 
serving size is adjusted to the number you need. Want a 

shopping list ot ingredients? No problem! 

The Computer Gourmet even comes with its own complete 

set of recipes! (And its very easy to add your own.) 

Automate your kitchen v^ith 
The Computer Gourmet 

Available on disk for Atari- computers (requires 48K), 
Send 529.95 plus 51.00 tor postage to: 

NEW HORIZONS SOFTWARE 

P.O. Box 180253 

Austin, Texas 78718 

Or, for more intormalion, call (512) 445-1767, 



New Horizons 

Expanding Your Life 

Contact us tor inlormation on all our products for Atari Computers 
Dealer inquiries invited. Atari is a trademark of Atari, Inc. 
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RAM for ATARI* 


Fully Assembled • Lifetime Warranty 


48K/52K Memory Board 


$89.95 


For ATARI- 400 




52K Addressable Memory 




Easy to Install 




32K Memory Board 


$59.95 


For ATARI* 400 or 800 




16K Memory Board 


$39.95 


For ATARI* 800 




BUILD YOUR OWN MEMORY 




48K/52K Bare Board 


$30.00 


32K Bare Board 


$20.00 


16K Bare Board 


$10.00 


48K/52K Complete Kit 


$75.00 


32K Complete Kit 


$50.00 


16K Complete Kit 


$30.00 


Add $2 Shipping & Handling 




Visa & MasterCard Accepted 




'ATARI is a trademark of Atari, Inc 




Dealer Inquiries Welcome 




Tiny Tek, Inc. 




Route 1, Box 795 




Quinlan, TX 75474 




214-447-3025 


^^^ 
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Merry Christmas Specials From CDY 
For Your Atari 400/800/800XL 



OMNIMON! Resident Monitor 

OMNIMON! is a PC board which plugs into your 400/800 (soon to be 
available for the XLs also) and gives you complete control of your computer. 
Even though it is always available (by pressing SELECT and SYSTEM 
RESET) it takes up no user memory because it resides in the unused 4K block 
at SCOOO. Use it to interrupt, examine, and manipulate any program in 
memory whether it be disk, cassette, or cartridge based. It is especially good 
for program development or customization of existing programs. The flexible 
disk I/O allows you to write to or read from disk in either single or double 
density. You can edit raw sector data or even load a file without DOS. Many 
debugging tools are at your disposal: Display / Alter memory or 6502 registers. 
Disassemble memory. Search memory. Hex /Char modes. Single Step execu- 
tion, JSR or GOTO address. Push / Pull stack. Printer dump, etc. After inter- 
rupting a program with OMNIMON!, many times it is possible to return to the 
program as if you had never left it (e.g., BASIC, DOS, etc.). Instructions are 
provided for the addition of a simple toggle switch to make OMNIMON! invi- 
sible, thus making it compatible with all software. An external cable is now 
provided to eliminate the need to solder directly on the board. 

New 8K OMNIMON! Upgrade 

This enhancement, which is available to all OMNIMON! users, includes a 
substantial number of features not available in the standard version. The 8K 
OMNI resides in an 8K ROM which has been modified by the addition of a 
switch for selecting either of two 4K banks. The additional features include 
Hex Conversion and Hex Arithmetic, Block Move, a Relocater, and a Line 
Assembler. A Binary Load command allows you to load any binary load llle 
without DOS and doubles as a disk directory command which prints out the 
start sector of each file. Lockup recovery allows you to recover from system 
lockup, meaning that when your computer freezes, you can usually salvage the 
program or text file in memory by popping into 8K OMNI and dumping 
memory to disk. Advanced users will like the user extendibility feature which 
allows them to make use of the interface routines of 8K OMNI in their own 
software. One of the most exciting features of the 8K OMNI is the resident 
Ramdisk handlers. They allow .\XLON Ramdisk owners lo use this powerful 
device with any DOS which uses standard SIO calls and even with boot pro- 
grams like word processors and games which access the disk a lot. Several addi- 
tional features make this version very valuable for advanced programmers, but 
if you have a Ramdisk, 8K OMNI is a MUST! 

New OMNIVIEW 80 Column Upgrade 

Did you know that for most applications you do not need an expensive, slot 
consuming 80 column board to enjoy the power of 80 columns? Would you 
400 owners like the convenience of 80 columns? OMNIVIEW takes advantage 
of the high resolution graphics mode built into the ATARI to generate an 80 
column screen editor essentially identical lo the ATARI screen editor (E:. S:). 
Thus, you can use OMNIVIEW in any environment where you would normally 
use the 40 column "E:" (e.g.. BASIC, Assembler /Editor, etc.). The 80 col- 
umn "E:" of OMNIVIEW has been optimized for speed so that it is not signi- 
ficantly slower than 40 column "E:". In addition, the character font was 
specially designed to be legible on an ordinary TV set! A monitor is recom- 
mended, but not really necessary for casual 80 column operation. The Bit-3 
version of LJK's 80 column Letter Perfect has been modified to support 
O.M.NJVJEW and other programs are sure lo follow. Lastly, the Ramdisk 
handlers described under 8K OMNI are also incorporated in OMNIVIEW. 

New RAMROD-XL 

800XL owners are now able to equip their computers with OMNIMON and 
OMNIVIEW. In addition, the Newell enhanced operating system and Fastchip 
floating point package will be included at no extra charge. This will essentially 
turn your 800XL back into a 400 / 800 compatible machine and allow it to run 
most of the software which the XL-OS will not. A switch will allow you to 
select the XL-OS when needed. 



OMNIMON RiHrod Upgrades for RaHrod-XL Addon for 

Piggy-back OS Board OMNIMON or Ramrod Piggy-twck Ramrod-Xt 

400/800 aOO 8K OMNI 8K VIEW 4K VIEW gflOXL VIEWXt 

Enhanced OS w/Kasr Cursor + + * 

Includes FASTCHIP FP + 

80 Columns Emulation + + + 

AXLON Ramdisk Handlers + + + 
OMNIMON Fealures: 

A:Allcr Memory * + t + * 

8:8ool (Ram) disk + t + 

C:CPU Regislers ^ + + + + 

DiDisplay Memory + + + + + 

EiSingle Slep Execulion + + + + + 

F:Fill Program Buffer 4 + 

G:Binary Load / Directory + + 

H:He\ Conversion + + + 

tt:Hex Arillimetic + + 

Itinstall Ramdisk Handlers + + + 

J:Jump Subroutine (JSRI + + + + + 

L:Drisc Selection/Control ^ + + + + 

M:Move Block of Memory + + 

N:Rcloc'ate 6502 Code + + 

OtOperale from Program Buffer + * 

P:Ptinler Control ^ , + + + 

R:Rcad Salortsl from Disk * ^ + + t 

SiSeatch Memory for Sequence + + + + + 

TtToggie Hcx'Char Display Mode + t * + + 

UtUser's Custom Command + 

V:Verify ] Blocks of Memory + + + 

WiWtiic Scciorlsl to Disk ^ , - t + 

\;Disassemblc Memory , . • t + 

V :Line Assembler * * 
Z:E«1 Monitor 

Lockup ReciHfiy ^ - • 

Redirection til ['rintet 10 + * * 

Talk 10 Happy Ram Butter - - + 
m Colurrn ATRtklON Ibr ATRXtKXl * 

• XMAS Pricing * 

Hardware: LIST 

Slanclaicl OMNIMON! Piggyback Boaid $99.95 

RAMROD-XL with OMNIMON-XL (800XL) SI 19.95 

OMNIVIEW-XL ADD-ON (RAMROD-XL) $59.95 

I'nhancciTients: 



XMAS 

Special 
$79.95 
$99.95 
$45.00 



8K OMNIMON Enhancement 
8K OMNIVIEW Enhancement 
4K OMNIVIEW Enhancement 
Letter Perfect or Data Perfect 
AXLON I2SK Ramdisk 
BASIC-XL. MAC65. ACTION! 



$45.00 $35.00 
$45.00 $35.00 
$30.00 $25.00 
$99.95 $70.00 
$299.95 5250.00 
$99.95 $70.00 



Newell RAMROD OS Board 

This is a new operating system board which replaces the existing OS board. It 
allows you to use EPROMs in place of the ATARI OS ROMs and comes with 
an enhanced OS which includes additional graphics modes and a fast cursor. It 
also has a socket which will accept any version of OMNIMON and thus is an 
alternative to the OMNIMON! piggyback board. For the 800 only. 

RAMROD OS Board with Standard OMNIMON $149.95 SI 19.95 

RAMROD OS Board with HK OMNIMON or 8K VIEW S189.95 $149.95 
Same as above with Fastchip Floating Point Package $209.95 $169.95 

RAMROD OS Board with 8K OMNIMON and 4K VIEW$209.95 $169.95 
Fastchip Floating Point Package by itself $29.95 $24.95 



How To Order 

Add $1.50 shipping ($3.00 for 2-day delivery). Add $1.65 for C.O.D. We ac- 
cept checks, money orders, or credit cards (Visa or MC). COD must be payed 
with cash or MO. 

CDY Consulting 

421 Hanbee 

Richardson, Tx 75080 

(214)235-2146 

DEALER INQUIRES SOLICITED 
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umn of its own — as assembly and 
FORTH enjoy now. I hope you 
will agree, and give this wonder- 
ful language its own place in the 
pages of ANALOG. 

Sincerely, 

David Brundage 

Pratt, KS 

We've run programs in Acdcm! in 
the past, but — rather than a single- 
viewpoint column on the language — 
vje 've decided to print individual Ac- 
don! articles from various authors, on 
a frequent basis. 

Back in issues 17 and 18, we ran 
a two-part series eixtitled IntroduC' 
tion to Action!, by the author of 
Action!, Clinton Parker. Unfortu- 
nately, he's been busy on other pro- 
jects and, thus, unable to continue the 
articles. 

ANALOG Computing has re- 
ceived dozens of terrific Action! games 
ay\d utilities, which s'ou'll see in these 



pages in the new year. Never fear, 
we'll keep up the Action! — L. P. 



Crash course. 

First, I would like to congratu- 
late the entire ANALOG staff for 
producing the best computer maga- 
zine each month. It's really great! 

Second, I found out from a rea- 
sonable source (Compute.' magazine) 
that Atari has fixed the "dreaded 
system crash." It was just a bug in 
the BASIC cartridge. Is this true? 
If it is, will we old folks, who have 
Atari 400s and 800s, get to buy a 
new BASIC cartridge? 

Third, how much is the ANA- 
LOG Compendium on disk? 

Bill Boroson 
Gloversville, NY 

There is certainly a bug within the 
BASIC cartridge that causes the sys- 
tem to lock up, and it can be fixed 
in one of two ways. 



The first is to send $15.00 to Atari 
and request a new cartridge. The sec- 
ond is to wait a few months. We u'ill 
be publishing an article that explains 
how to convert the cartridge BASIC 
to an AUTORUN.SYS file and cor- 
rect the bugs. We can legally do this, 
because you will need the original car- 
tridge for the program to ivork. Be- 
lieve me, it will be ivell worth it! 

A set of disks for Compendium 
programs (three double-sided disks) 
costs $35.00. -C.B. 



TV blues. 

I've been using an Atari 800XL 
computer for a while now, and be- 
fore that, the older Atari 800. We 
had them both hooked up to the 
TV at the same time, for a while 
there. 

Sometimes when I want to use 
the computer, my sister wants to 
watch TV. . . so I'm wondering if 
there is a POKE that will allow you 



c 



FOR ATARI *400/800/1200/600XL/800XL* 



Pap awaES" S0a::t» esxi B3s@;i« siaiia>»C(3(-<3 



For ATARI 800XL, 1200Xt, 600XL with 
64k. Replacement operating system to run 
the vast majority of all ATARI software. No 
translator or disk to load! 
Proper RESET operation especially impor- 
tant for programs like LETTER PERFECT, 
DATA PERFECT, TEXT WIZARD, etc. 
One touch access to extra RAM, all RAM. 
One touch BASIC on. 
Easy plug in installation and much more! 

•••SPECIAL OFFER*^* 
Until december 31, 1984 receive 
MacroMon XL free with purchase of the 
XL BOSS!— Disk a $30 value — excellent, 
unique monitor for beginner and pro 
alike — written especially for the BOSS. 
Please specify computer model. $79.95 
for SOOXtyeOOXL with 64K* $89.95 for 
1200XL*. 



% 



Hen 
acroware 




PFIMTHIZ 



An all machine language text, 
graphics, mixed mode dump for EP- 
SON, GEMINI, NEC, PROWRITER, 
OKIDATA, M-T SPIRIT, 160L, 
KXP-1090, DMP-80, ISD 480, 
SEIKO/AXION CP550A. 
Self booting can be used while pro- 
gramming or even running other pro- 
grams. 

Work with or without BASIC, ED/ASM, 
PILOT, LOGO. Calendar generator. 
Horizontal format allows text to be 
continued in same direction. Change 
widths, height, center and much more 
from the keyboard or your program. 
Special handlers for PAINT, Micro- 
Illustrator, LOCO, Micropainfer, etc. 
Includes LISTER program for inverted 
and special characters plus demos and 
ideas. $29.95* 16K Disk-All Inter- 
faces. 



diskwiz-ll 

Fast and easy to use repair, edit, ex- 
plore, dup, disk utility package. Single 
load, single or double density. Special 
printout capabilities. 
Repair or change of linked DOS2 or 
OSA -F 2 files, directories, dup 
filenames. Fast searches, mapping, file 
trace. Disassembler, speed check and 
much more! Low priced, fast, easy, 
and powerful! $29,95 16K Disk. 

Send s.a.s.e. for update info. 

*TERMS: U.S. funds; check or M.O. 
add $2.50 shipping/handl- 
ing add 6% CA — 6.5% LA 
COUNTY add $3.00 for 
C.O.D. No charge cards ac- 
cepted add $2.50 foreign 
orders normally out within 
48 hours. 



P.O. BOX 2205/REDONDO BEACH, CA 90278 

(213) 376-4105 

* Trademark of Atari, Inc. 
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to use a printer as display screen 
instead of a monitor or TV — like 
a teletype machine or something of 
that nature. Do you know a POKE 
or set of POKEs that will do that? 

William M. Shaw 

Kenai, AK 

As far as we know, there is no sim- 
ple POKE that ivill let the printer be- 
have like a teletype machine. There 
are several reasons why this will not 
work. 

The built-in screen editor will send 
a line to BASIC only after you liave 
hit the RETURN key on your com- 
puter Also, the printer will print only 
ivhen it receives a full line of infor- 
mation from your computer 

Basically, what this means is tlmt, 
even if you could set your computer 
and printer up to do this, you wouldn't 
see what you have typed until after 
you hit the RETURN ke:y. Maybe 
you should start saving up for a cheap 
little black and ivhite TV set. 

-C.B. 

Controlling changes. 

I use an Olivetti Spark Jet print- 
er and Ape-Face interface with my 
800XL. The combination is entire- 
ly satisfactory — with certain annoy- 
ing drawbacks. 

When using my AtariWriter, I 
cannot cue the printer to underline 
or change the number of characters 
per inch. Both my AtariWriter and 
the printer have the capability to 
do these functions separately, but 
not together. 

I have tried to use the CTRL-0 
command to enter the appropriate 
binary printer code — the printer 
doesn't understand the CTRL-0! Is 
there a way to enter a program in 
conjunction with the AtariWriter 
that would make the printer under- 
stand my intentions.'' 

Also, what has happened to the 
Atari support programs? I've tried 
both 800 numbers for the Atari 
Program Exchange (APX) and for 
customer service, and found that 
the lines have both been discon- 
nected! 

Thanks for your help. 

Mike Johnson 

Evanston, IL 



Your printer doesn't have to under- 
stand a CTRL-0 code, but the Atxxri' 
Writer must. CTRL-0 is a signal for 
the word processor that the numbers 
following should be changed to a con- 
trol code. This is similar to using the 
CHR$ function in BASIC! 

Since I'm not familiar with codes 
used by the Spark Jet printer, we'll 
do an example with fictitious codes. 
Let's say tliat we want to send two 
bytes to the printer In hex, they would 
be$lB and $41 (ESC A). The deci- 
mal equivalents would be 27 and 61. 
So, we would enter: 

Q]27B61 

where inverse O means that you must 
hold doivn the control key and t^ype 
the letter O at the same time. This 
should work. 

APX, with its 800 numbers, was 
dropped when management of Atari 
was shifted over from Warner Com- 
munications to Jack Tramiel. Atari, 
Inc. is now known as Atari Corpora- 
tion. —C B. 



D:CHECK problem. 

I'm writing you because I'm hav- 
ing a problem with D:CHECK2. 
During the time that the screen 
goes blank, the program stops. Is 
this a problem typical with Atari 
XL computers? 

I would also like to know if a 
plotter utility such as Solid States 
(issue 16) can be converted for use 
with an Olivetti PR2300 printer/ 
plotter, and, if it can, how do I go 
about doing so? 

Sincerely, 

Ben Luijt 

Los Angeles, CA 

'We have >iet to receive any nega- 
tive reports about our D:CtiECK.2 

program. It works with both the old 
400s and 800s, as well as the newer 
XL models. 

There has probably been a mistake 
made ivhen typing the program in, or 
there might even be a problem luith 
the BASIC that's built into your ma- 
chine! 

When the XLs were first shipped, 
it was found that some of the ROM 



chips were defective. Has any other 
program failed to work for you? If not, 
I would recheck spelling. CHECK- 
SUM DATA was included along with 
D:CHECK2, but you can't use it 
unless the program works . . . and you 
can't be sure that the program works 
unless you use that CHECKSUM 
DATA. 

You might also try using the new 
Unicheck program that appeared in 
issue 24. This is a machine language 
version of D:CHECK2 that is a lot 
easier to use. Try it; I'm sure you'll 
like it. 

As for the Olivetti PR2300 printer/ 
plotter being used with Solid States, 
we just don't know, since we have no 
information here on the unit. 

-C.B. 



Reader Comment 



continued on page 48 



COST EFFECTIVE SOFTWARE 

BY 
"The Best Little Sottware House In Texas " 

HOMEBASE by soft SECTRE .s a 

vefsalile dalabase progiam lot Ihe home, small busi- 
ness or lab In a USER FRIENDLY MENU dnvenlomal 
HOMEBASE ulilizes TWENTY COMMANDS CREATE, 
ADD, LIST. CLIST, CHANGE, CONCATENATE, 
SEARCH, SUM, SORT, DELETE, LABELS, LOAD, 
PRINT, SAVE, DIRECTORY, HELP, DRIVE, AUDIO, 
LOWER CASE, END An opiional SECURITY CODE 
prevents ijnalhi}nze<l data lile retrieval and manipula- 
tion Optional AUDIO FEEDBACK signals the end ol a 
command response The ATARI version uses a 
MACHINE LANGUAGE SORT' 
HOMEBASE IS ideal lor MAILING LISTS (we use il 
ourselves) household, insurance and equipment IN- 
VENIORIES MAINTENANCE schedules, a PRESCRIP- 
TION list lelund COUPON and GROCERY lists Ready- 
to-use data liles lor these tasks are included Why buy 
several programs' Purcliase tire ONE program llrat will 
handle all ol your dalabase needs HOMEBASE by 
SOFT SECIRE will SAVE you TIME and MONEYi 
SELECTRE by SOFT SECTRE is included in Ihe disk 
based package at no additional charge (a $29 95 
valuei) Disk DIRECTORIES and PROGRAMS are 
loaded wilh nunreric key input allowing even Ihe most 
inexperienced person to easily operate Ihe computer 
AIARIORPEI DtSK32K $49 95 
PEHAPE 16K $49 95 

Add S2 00 lor shipping 

SOFT SECTRE 

PO BOX 182I,PLANO, TX aOM 
Send ini FREE calaliigi VISA MasterCard WELCOMED 
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New. . . Improved 

WHAT IS 
CHECKSUM DATA? 



Most program listings in ANALOG Computing are followed by a table of numbers appearing as 
DATA statements, called "CHECKSUM DATA." These numbers are to be used in conjunction with 
D:CHECK and C:CHECK (which appeared in ANALOG Computing issue 16 and the ANALOG 
Compendium) or with UNICHECK (from issue 24) 

D:CHECK and C:CHECK (written by Istvan Mohos and Tom Hudson) and UNICHECK (by Tom 

Hudson) are designed to find and correct typing errors when readers are entering programs from 
the magazine. For those readers who would like copies of these articles, you may send for back 
issue 16 or 24 ($4.00 each) or the ANALOG Compendium ($14.95 plus $2.00 shipping and han- 
dling from: 

ANALOG Computing 

P.O. Box 615 
Holmes, PA 19045 



Some program listings 


reproduced in ANALOG may contain 


'strange 


"ch 


aracters not shown on the 1 


Atari keyboard. These 


are 


special characters 


which 


use the CTRL, ESC and "ATARI LOGO" (IN- I 


VERSE) keys. 


Shown 


below is a list of these characters and the keys 


trokes used to 


get th 
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\ ESC ESC 






7 





IHUERSE 


CTRL 
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t ESC CTRL 
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CTRL 
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+ ESC CTRL 
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CTRL 
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T 
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u 


k 
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H 
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ESC DELETE 
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P 
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D 
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E 


B 
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THE SMART DESK 

This compact desk with 19 squate feet of workspace utihzes a drop-leaf front for pro- 
tected storage. The Smart Desk was originally designed for the Atari computer line and, 




along with your computer, it will store a cassette, modem, disk drives, monitor, and other 
peripherals. Your computer's console slides onto the drop-leaf front at a typing height of 
26 inches. The shelf in the center is adjustable, while the top shelf is fixed and will hold 
a monitor up to 19 inches or, with a smaller monitor, an 80-column printer. The Smart Stand, 
a matching printer stand, is also available. 

Smart Desk costs $199.00; Smart Stand, $149.00, from The Furniture Byte, Inc., P.O. 
Box 1757, Longview, WA 98632 - (800) 426-5301. 



THE KOALAPAD BOOK 

The inventor of the touch tablet, David Thornbiirg, has now written a book on various 
uses of the KoalaPad— more than creating pretty pictures. For instance, chapter 4 describes 
some software products compatible with KoalaPad: Spider Eater, Music Construction Set 
and Graphics Exhibitor. Much of the book covers the Atari specifically 

T\\e. KoalaPad Book is priced at $12.95, 134 pages, from Addison-Wesley Publishing. 



The 

KoalaPad 

Book 

kj5 1 id . li.'iii.-'^ frail ihi' iiivujitof ill i]i(! !(iUi.H JtibU 

David D Thomburg 




DESIGN YOUR OWN GAMES 

Atciri Graphics and Arcade Game Design is 
a hefty, 478-page book designed to teach 
you the building blocks of Atari graphics. 
Covered extensively are basic player/missile 
graphics, GTIA colors, scrolling, vertical 
blank and display list interrupts, animation 
and sound. Much of the book is devoted to 




game design, with graphics and flowcharts 
evident throughout. Game particulars- 
bomb drops, laser fire, ship movement and 
missile firing — are explained, along with 
the mathematics and physics needed to de- 
rive those objects. Both BASIC and assem- 
bly language are covered, making the book 
bandy for Atari users of all ranks. 

By Jeffrey Stanton with Dan Pinal, soft- 
bound, $16.95 from Arrays, Inc., The Book 
Division, 11223 S. Hindry Avenue., Los 
Angeles, CA 90045. 



BUFFER YOUR PRINTER 

Digital Devices' latest release is the Model P16 Printer Buffer. Starting at $119.95, this 
unit contains 16K of buffer memory and is expandable to 64K, by the addition of more 

chips. 

A printer buffer temporarily stores 
the data you've sent to the printer, thus 
freeing your computer from having to 
wait for your printer to stop. This low- 
cost buffer comes with a Centronics 
parallel connector, allowing compatibil- 
ity with most printers — such as CItoh, 
Epson, NEC and others. RS232 models 
will also be available shortly. 

For more information, contact: Dig- 
ital Devices, 430 Tenth Street, Suite 
N205, Atlanta, GA 30318 - (404) 
872-4430. 




PAGE 12 



ANALOG COMPUTING 



ISSUE 26 



HI 



INFOCOM'S NEW ADVENTURE — NEW PACKAGING 

Cutthroats by Infocom is presented in a striking, newly-designed box. Touted as "book- 
like," the more compact format is easier for retailers to display — and for consumers to store. 

A bound-in booklet that the consumer can examine before purchasing gives details and 
a preview of the program, along with sample dialogue. The entire current and future Info- 
com adventure line is scheduled for this format. -r-i r- 

The first 

release to reside 
1 in this new 

I home is Cut- 

.., '"•'*'' throats, and this 

time you're a 
"diver for hire," 
in search of 
underwater trea- 
sure. But what 
do you know? 
You're really 
just a run of the 
mill Atari user. 
Well, be sure 
to brush up on 
your historical 
shipwreck book- 
let (included). 
ANALOG 
Computing will 
have a full 
review of Cut- 
throats in an 
upcoming issue. 

Other new Infocoin releases include Suspect, another mystery/thriller; and The Hitch- 
hiker's Guide to the Galaxy, based on the crazy show with the same credentials. 

Priced at $34.95, the adventures are for 48K disk. From Infocom, Inc., 55 Wheeler St., 
Cambridge, MA 02138 - (617) 492-1031. 
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COMPUTER TRIVIA 

What's really different about PQ — The Party Quiz Game is its hand-held controllers. 
The Atari-compatible version allows up to four players to compete .Siin.s keyboard (which 
is only used to pause the game). Six-foot cords connect to the computer joystick ports. 
The game itself features 
over 2500 questions on 
disk, randomly chosen 
by the computer (even 
the categories). Players 
can choose the length 
of the game, the time 
allotted for the ques- 
tions' responses and 
the number of players. 

Other selections in- 
clude: the competitive 
mode, where your first 
correct answer will win 
points; the social op- 
tion, in which all cor- 
rect responses gain you 
points; and the team 
scoring option, where 
players double up. 

Additional disks will 
ho released shortly, in- 
cluding General Edition II, covering entertainment, history, art, sports and literature. Gen- 
eral Edition III will follow, with science, sports, music, geography and world records. The 
Education Edition I is also scheduled. 

The cost is $69.95 from Suncom, 260 Holbrook Drive, Wheeling, IL 60090 — (312) 
459-8000. 




MARKET FORCES 

... is a new program designed to teach 
the inner workings of the economy. Set up 
as a stock-market economic environment. 
Market Forces simulates the buying and 




selling of commodities. A player can com- 
pete either against the computer or up to 
eight opponents. Each player's actions are 
hidden from the others, and every move has 
ramifications on the whole game. 

On cassette for the Atari at $16.00 or on 
disk at $21.00, through Intelligence Quest 
Software, 4517 Harford Road, Baltimore, 
MD 21214 - (301) 254-5300. 



OTHER NEWS 

Adventure International ha.s .signed lui agree- 
ment with 20th Century Fo.\, involving The Ad- 
uentures o/ Buckaroo Banzai across the Sth 
Dimension. AI has announced that it will re- 
lease at least two software products, one an ad- 
venture and the other an educational game. 

Contact: Adventure International, Box 3435, 
Longwood, FL 32750 - (305) 862-6917. 

■ ■ ■ 

If your Atari is used tor practical applications, 
you now have the opportimity to access a Yel- 
low Page setvice of over 6 million husinesses in 
the U.S., using a modem and phone line. 

The system operates 24 hours a day and takes 
just seconds to give the answet you seek. Costs 
are $1.00 per minute plus the hookup fee of 
.$15.00 per month. 

For information contact: Instant Yellow Page 
Service, P.O. Box 27347, Dept. N, Omaha, NE 
68127 - (402) 331-7169. 



A series of 600XL expansion memory modules 
is available, starting at $79.95 for 32K, $99.95 
for 48K and $119.95 for 64K. These .small, self- 
contained units plug into the expansion port in 
the 600XL's back and require only Vi" of space 
behind the computer. 

The AM64 is tully compatible with most cas- 
sette and disk software, as well as the Atari Trans- 
lator disk. 

From RC Systems, Inc., 121 W. Winesap Road, 
Bothell, WA 98012 - (800) 227-1617; in Califor- 
nia (800) 772-3545. 
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ATARI 
1985 

Atari Corporation's 
first press conference 



by Jon A. Bell 



On Tuesday morning, November 13, 1984, Atari 
Corp. held a press conference in which they outlined 
their basic marketing strategy for 1985. A small army 
of newspaper, television and magazine reporters de- 
scended upon Atari's administrative headquarters, a 
dark brown building at 1265 Borregas Avenue. ANA- 
LOG Computing publisher Lee Pappas and I were 
in attendance at this press conference and were able 
to provide these two "scoops" — one of the first sum- 
maries of the press conference to be published in any 
monthly magazine, as well as an interview with Jack 
Tramiel, Chairman of the Board (see page 14). 

At the meeting, Vice President of Marketing James 
Copland announced the news: price reductions on 
the 800XL computers, the 1050 disk drive, the 1010 
cassette recorder and the 1025 and 1027 printers. The 
800XL has had its price slashed from $179.00 retail 
to under $120.00. Exact prices on the Atari peripher- 
als were not set, but will be reduced to "bring them 
more into line with that of the 800XL price point." 

Producing the Atari hardware are two plants: one 
in Taiwan employing 1200 people, manufacturing 
products for North America; and one in Ireland em- 
ploying 350 persons, manufacturing for the European 
market. This brings the total number of Atari employ- 
ees to around 3000 — less than half those employed 
two years ago, in Atari's more wasteful days. 

Software prices are also going to be reduced, with 
no piece of Atari software to be sold "for more than 
$49.00." As stated in the press release, "these cost 
reductions now make it possible for the consumer to 




THINEWAAWICORH 




Jack Tramiel, Chairman of 
the Board, Atari Corp.: 
"I want to make this business 
exciting again^ 



purchase a complete Atari computer system for well 
under $600.00." 

To support these new products. Atari Corp. started 
a media blitz on Thursday, November 15 — in news- 
print. (Mr. Copland explains the differences between 
television and print advertising and marketing in our 
following interview with Mr. Tramiel.) No decision 
has been made yet on whether or not Alan Alda will 
continue as Atari's spokesman. However, when asked 
about Alda's future, Mr. Tramiel replied, "We are sell- 
ing computers, not people." The theme of the Christ- 
mas ads, appearing in newspapers across the entire 
country, is for the personal' computer "so affordable 
even Scrooge would have given it!" 

Also announced at the meeting were Atari's plans 
to produce high-quality, inexpensive 16- and 32-bit 
machines for home use. According to Mr. Tramiel, 
these new high-end machines will be targeted to in- 
dividual users. He emphasized that he would not try 
to compete with IBM and the business market, and 
the machines would not be IBM-compatible. Instead, 
Atari plans to use an operating system developed by 
the Monterey-based Digital Research, where indus- 
try insiders had reported seeing Atari technical per- 
sonnel working with Digital software developers. Mr. 
Tramiel said he hoped the 16-bit machine would be 
ready in time for showing at the January CES, and 
that the 3 2 -hit machine would be introduced in Han- 
over, West Germany in April. 

Stay tuned for further details in the next issue of 
ANALOG Computing. D 
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The New 
Atari 

An interview 
with 

Jack Tramiel 

by Lee H. Pappas and Jon A. Bell 

Ed. note: After Atari's press conference (see page 13) 
and a brunch for press members, ANALOG Comput' 
ing publisher Lee Pappas and 1 were granted a short in- 
terview ivithjack Tramiel, Chairman of the Board of the 
"new" Atari Corp. Also in attendance at the interview 
was fames L. Copland, Vice President of Marketing for 
Atari Corp. 

AN.C: In what directions will you be taking Atari — 
similar to or different from those of the previous adminis- 
tration? For instance, under Warner Communications, 
Atari was emphasizing video games over computers. It 
also suffered from the three divisions competing ivith each 
other — the arcade division, the home computer division 
and the home games division. What will you emphasize, 
home computers or games? 

JT: We will be emphasizing every product we manu- 
facture, and we will have one company, not three com- 
panies. 

AN.C: Obviously, the latter was one of the major prob- 
lems that the "old" Atari had. As stated in the press con- 
ference. Atari is going to be lowering the prices on both 
the 2600 game system and the 800XL. We were won- 
dering what plans, if any, you had for releasing the 7800 
game system. 

JT: Right now, we do not plan to release the 7800. 

AN.C: Do you plan to use any of the technology of 
the 7800 in new Atari products? 

JT: Could be. . .At the present time, we do not 
have any plans for it. 

AN.C: In terms of marketing, how are you going to 
sell your computers? Will you continue to court mass re- 
tailers, or try to distribute your products in computer 
stores? 

JT: We will definitely sell to anyone who pays their 
bills — if it's a mass marketer, or if it's a retailer. Our 
"star" is our product, the way James (Copland) men- 
tioned before (in the press conference — Ed.). From a 
marketing point of view, all our effort is going into 



the product, to tell the retailer what the product is. 
And 1 believe very much in the separation of religion 
and state; it's the same thing with me. . .manufactur- 
ing and retailing. We're the manufacturer; they're the 
retailer. Our job is to make the best product; their 
job is to sell it. 

AN.C: What about patching up the problems caused 
by the previous Atari administration, by dealers and mass 
marketers who felt "burned" by Atari? 

JT: I believe that every single retailer whom we are 
dealing with. . .has known us for the past twenty- 
some years, and they're not looking at us as the prior 
Atari, but they're looking at us as the new Atari. We 
have a relation in the way we do business. We know 
each other, and we have a brand-new start. 

AN.C: Nevertheless, you might be fighting an uphill bat- 
tle ivith those dealers who simply see the name Atari and 
feel bitter toivards the company and the way it's treated 
them in the past. 

JT: The beauty about it is, the person who buys 
the computer — or buys the game — is not the retailer. 
It's the individual who is going to use it. 

AN.C: In the press conference, you mentioned the num- 
ber of 2600s sold and the fact that those buyers are a 
target audience for Atari computers. People want to trade 
up from their machines; they're not simply content to play 
games. What about the Atari veterans, those people who 
have owned Atari 400s and 800s for years now? Are you 
going to encourage them to trade up to new, more power- 
fid Atari machines? 

JT: It's a nice group. . . It's not a very big group, but 
it's a nice group. There weren't that many Atari com- 
puters sold. . .compared with the company with which 
1 was previously involved. Yes, we are definitely aim- 
ing at anyone who has an Atari product; yes, we will 
be able to offer them more powerful products; and 
1 hope that they will upgrade their products. 

AN.C: We are heavily involved with the Atari SIG on 
CompuServe, and we try to keep in touch with the entire 
Atari community. As you said, the group may not be very 
large, but they are vocal. They are also very influential 
to their friends, who look to them for guidance about what 
computer to buy. One of the things we've noticed is that 
the real diehards are very anxious about new Atari prod- 
ucts, and they're hoping that Atari is going to come out 
with something exciting to trade up to. They've plumbed 
the depths of what their Atari can do, and they want some- 
thing more powerful. . . but they're waiting. Their loyalty 
is intense. They are not buying an IBM PC; they are 
not buying an Apple Uc. . . 

JT: Could they afford it? 

AN.C: Oh, yes. . .some of them, anyway. 

JT: Or are they just holding out? 
(Laughter.) 
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We have to be proud 
of what we are 
buying and 
what we are seUing* 



AN.C: Were talking about hackers here . . .the kind who 

would rather buy a new machine than eat dinner to- 

morrow. 

JT: But they're still out three thousand dollars. 

They bought the Atari because it was less than the 

Apple. 

AN.C: They figure that Atari's going to bring out a 
machine that can do even more than the three-thousand- 
dollar machines, for a lot less than half the price. 
JT: No question about that. That's absolutely right. 

AN.C: The good thing about that is: the money they 
might spend on other products, they'll spend on Atari. 

JT: It'll be worth the wait. 
AN.C: That's what we tell them. 
JC: What we'll do is— we'll offer a new advertising 
campaign next year. . .and with every Atari computer 
they've waited so long to buy, we'll throw in a free 
meal. How's that? 
(Laughter.) 

JT: You people can help — in encouraging your read- 
ers, Atari owners . . . Everything we do, we have to do 
for the long term. We have to be proud of what we 
are buying and what we are selling. 

AN.C: Would you say that was your policy. . .when 
you were working for the people in Pennsylvania? 

JT: It was my policy the day I opened up my doors. 
It will be my policy until I die. 

AN.C: Getting back to marketing, we were wondering 
if there was a specific reason for emphasizing print ads 
over television. Is it for monetary reasons, or are you go- 
ing after a specific audience with print ads? 

JC: There is a phobia associated with television ad- 
vertising, because it's beautiful and it's full color, and 
you can see it moving — that it's the most cost-efficient 
buy for introducing or exposing a message to the aver- 
age American consumer. The fastest and most direct 
way to get immediate household coverage in any mar- 
ket is by newsprint. Our campaign that breaks on 
Thursday, November 15 (1984) will hit in excess of 
75 percent of American households in the United 
States. The cost to run a single campaign on a na- 
tional basis in this country, in print, will be less ex- 
pensive than one 30-second commercial on this year's 
Super Bowl — in fact, almost 50 percent less. 




AN.C: That's an interesting comparison. The major- 
ity of the hype over Apple's incredibly expensive 1984 com- 
mercial was in print. That's why the ad was successful. 
It wasn't that so many people actually saw it, but the 
amount of paper that it generated. 

JT: There's no question. Again, one company be- 
lieves that the end user is intelligent and knows what 
he's buying; the other one believes that he should get 
snowballed with marketing, with advertising. 

AN.C: They have to be bludgeoned into buying the 
products. 
(Laughter.) 

JT: Intelligent companies are going after the long 
term — not to cheat the customer, not to be greedy. 
Our competitors are out there to make the buck right 
now. (Tramiel's fist came doivn on the tabletop in cadence 
with the last phrase, for emphasis— Ed.) Spend the mon- 
ey for advertising, have the image! You can't compute 
with image; you have to compute with the computer. 
Image you have to earn, not advertise. 

AN.C: That's what we've always said. . . 

(Laughter.) 

A lot of people ask us, "What's the best inexpensive 
computer to buy?" We say it's Atari. And they'll say, 
"Well, you would say that, because you publish an Atari 
magazine." We reply, "No. We publish an Atari maga- 
zine because we like the computer and think it's the best 
computer for the money!' No one works at ANALOG 
Computing who isn't excited about what we are trying 
to promote. Our magazine has gotten where it is because 
of the spirit oj the company, not hype. 
JT: I can assure you . . .You didn't ask me this ques- 
tion, but I will tell you. We will support the people 
who own Atari products— with everything we have. 
And we will make people like you, and users, proud 
of owning our products. That is our aim; that is the 
satisfaction I'm looking for. I'm definitely not doing 
it now for money. I'm doing it to create something, 
to insure that we have the best computer in the mar- 
ketplace, for less, n 



Turn your Atari 
into a Ferrari. 



Introducing the all-new 1984 Indus GT™ disk 
drive. The most advanced, most complete, most 
handsome disk drive in the world. 

A flick of its "Power" switch can turn your Atari 
into a Ferrari. 

Looks like a Ferrari. 

The Indus GT is only 2.65" high. But under its 
front-loading front end is slimline engineering 
with a distinctive European-Gran flair. 

Touch its LED-lit CommandPost™ function con- 
trol AccuTouch™ buttons. Marvel at how respon- 
sive it makes every Atari home computer. 

Drives like a Rolls. 

Nestled into its soundproofed chassis is the 
quietest and most powerful disk drive power sys- 
tem money can buy At top speed, it's virtually 
unbearable. Whisper quiet. 

Flat out, the GT will drive your Atari track-to- 
track 0-39 in less than one second. And when 
you shift into SynchroMesh DataTransfer,™ you'll 
increase your Atari's baud rate an incredible 
400%. (Faster than any other Atari system drive.) 

And, included as standard equipment, each 
comes with the exclusive 
GT DrivingSystem™ of 



software programs. World-class word processing 
is a breeze with the GT Estate Word Processor.™ 
And your dealer will describe the two additional 
programs that allow GT owners to accelerate their 
computer driving skills. 

Also, the 1984 Indus GT is covered with the GT 
PortaCase™ A stylish case that conveniently dou- 
bles as a 80-disk storage file. 

Parks like a Beetle. 

The GT's small, sleek, condensed size makes it 

easy to park. 

And its low $449 price makes it easy to buy 
So see and test drive the incredible new 1984 

Indus GT at your nearest 

computer dealer soon. 
The drive will be 

well worth it. 



INDUS 




The all-new 1984 Indus GT Disk Drive. 

The most advanced, most handsome disk drive in the world. 




For additional information, call 1-800-33-INDUS. In California, call 1-800-54-INDUS. 213/882-9600. 

© 1983 Indus Systems 9304 Peering Avenue, Chatsworth, CA 91311. The Indus GT is a product of Indus Systems. Atari is a registered trademark of Atari, Inc. 

CIRCLE #132 ON READER SERVICE CARD 



PRINTERS 

Alphacom 40C 

w/lnterface 99.95 

Alphacom 80C 

w/lnterface. . . 189.95 
Axiom AT-550 . . 279.00 

Epson Call 

Prowriter I Call 

Riteman Call 

Silver Reed Call 

Toshiba 1340 Gall 

Toshiba 1351 Call 

Silver Reed Call 



ATARI MODEM 
SPECIAL 

Hayes 300 & 

R-Verter 239 

Hayes 1200 & 

R-Verter Call 

No additional shipping for Modem 
packages in Cent. USA 



SUPERPRINTER 
PACKAGES 

Gemini 10X and 

Apeface 323 

Prowriter and 

Apeface 409 

Legend 880 and 

Apeface 308 

No additional ship, charges on 
printer packages in Cont. USA 



MOSAIC 

48K RAM 94.00 

64K RAM/400 . . 149.00 
64K RAM/800 + 

Cable Kit #1 . .189.00 
64K Expander for 

600 XL 99.95 



Bring the trivia craze home 
with P.Q. The Party Quiz 
Game for the Atari 800 & 
BOOXL (disk only) Call 



A ATARI 



ATARI is a trademark of ATARI. INC. 



Atari Inc. has cut all hardware and 
software prices please call for 
latest prices!!! 




THE POWER BEHIND THE PRINTED WORD. 

Gemini 1 0X .. 249 Delta 15X. 
Gemini 15X . . 389 Radix 10X. 
Delta 1 0X... .369 Radix 15X. 
Powertype 329 



499 
.549 
.629 



DISK DRIVES 

Indus GT 

Percom 

Astra 2001 



.Call 
.Call 
. Call 



MODEMS 

Hayes Amart 

Modem 300 

Mark II 

Mark Vll/Auto Ans/ 

Auto Dial 

Mark XII/1 200 Baud. 

MPP 1000 C 

R-Verter Modem 

Adaptor 

Prometheus 



. Call 
79.00 

. . Call 
. . Call 
. . Call 



39.95 
. Call 



INTERFACES 

Aid interfast I 

Ape Face 

R-Verter Modem 

Adaptor 

MPP 1150 



.Call 
.Call 



.39.95 
..Call 



-A- Call for prices on joysticks, printer cables, blank floppy disks, and other computer 
A T A R I S O F T W A 



accessories, -iz 



ACCESSORIES 

Ape-Unk 29.95 

Gemini lOX 8K Upgrade .... Call 

Koala Pad - D 69.95 

Koala Pad -Cart 74.95 

Humpty Dump - D 29.95 

Monitors Coll 

CompuServe Starter 27.96 

Vidtex.... 29.95 

EIS Subscription Kit 64.95 

Alien Voice Box II -D 99.95 

Analog Compendium 9.95 

Atari Assembler 14.95 

Compute's Machine 

Lang /Beg 12.95 

Inside Atari Dos 19.95 

Mapping Itie Atari 14.95 

Compute's 1st -3rd Books 

Atari -EA 12.95 

Printer Stand 15.95 

Omnimon 82.95 

Omniview 80 39.95 

Printer Ribbons Call 

Ramrod XL Coll 

WICO Joysticks Call 

MPP 64K Printer Buffer Call 

U-Print 16, 32, or 64K Buffer. Call 

TAC 111 Joystick 12.95 

Sforfighfer Joystick 9.95 

Ramrod XL 99.95 

Muppet Keys (XL Only) - D . 54.95 

ACTIVISION 

Decolholon-Cart 29.95 

Beamrlder-Cart 29.95 

Hero -Cart 29.95 

Pitfall 11 -Cart 29.95 

River Raid - Cart 29.95 

Designer Pencil -Carl 29.95 

Space Shuttle - 29.95 

Lone Ranger -Cart 29.95 

Zenji - Cart 29.95 

AVALON HILL 

Call for items and prices' 

BRODERBUND 

Bank Street Writer - D 49.95 

Loderunner - D 23.95 

Mask of the Sun - D 27,95 

Operation Whirlwind -D . . . 27.95 

Spelunker-D 20.95 

Slelth - D 20.95 

Whistler's Brother 20.95 

Print Shop - D 34.95 

Serpent's Star -D 27.95 



CBS SOFTWARE 

Call for Items and prices 
DATASOFT 

Bruce Lee-D/T 23.95 

Micropointer - D 23.95 

Lost Tomb -D/T 23.95 

Mancopter-D/T 23.95 

Merldan lll-D/T 2795 

Letter Wizard + Spell -D. .54.95 
Conan the Barbarian -D/T. 27.95 
Mr. Do-D/T 27.95 

DISKEHES 

Dyson Call 

Verbatim For 

Certron 10 pok 

Elephant & 

Maxell Quantity 

Memorex Pricing. 

Ultra Magnetics 

BASF 

ELECTRONIC ARTS 

Archon-D 29.95 

Pinball Construction - D , , . 29.95 

M.U.LE.-D 29.95 

Murder / ZInderneuf - D . . . . 29.95 

One on One- D 29.95 

Archon 11 -D 29.95 

Financial Cookbook - D .... 37.95 
Music Construction -D.. ..29.95 
Realm/Impossibility- D . . .29.95 

EPYX 

Call for Items and prices 

INFOCOM 

Deadline -D 29.96 

Enchonter-D 23.95 

Infidel -D 29.95 

Plonetfall-D 24.95 

Sorcerer - D 29.96 

Storcross - D 29.95 

Suspended - D 29.95 

WItness-D 29.95 

SeoStalker-D 24.95 

Cutthroats -D 24.95 

Suspect-D 24.95 

Hltchlker-D 24.95 

Zork I - D 24.96 

Zork 11 or 111 -D 27.96 



MICROPROSE 

Chopper Rescue -D/T 23,95 

Floyd /Jungle -D/T 23,95 

Hellcat Ace -D/T 23.95 

Mig Alley Ace -D/T 23.95 

NATO Commander - D / T . . 23.95 

Solo Flight-D/T 23.95 

Spitfire Ace -D/T 23.95 

Wlngman-D/T 23.95 

Air Rescue 1-D/T 23.95 

Challenger -D/T 23.95 

F-16 Strike Eagle -D/T....23.95 

MISCELLANEOUS ATARI 

DIskey-D 34.96 

Ultra Disassembler- D .... 34,96 

Codewriter ■ D 69.95 

Star League Baseball D/T 23.95 
Star Bowl Football -D/T., 23,95 

Dine Eggs-D 27.95 

Master Type - D / Corf 27.96 

Flight Simulator II -D 37.96 

S.A.M.-D 41.95 

Castle Wolfenstelr ■ D , . , , 20,95 
CompuServe Starter Kit. , , .27.95 

Home AccountanI - D 49.95 

Megofont II -D 19,95 

Monkey Wrench II -C 37,95 

Movie Maker-D 37,96 

Ultima 111-D 41,95 

Jupiter Mission - D 34.96 

Boulder Dash -D/T 20.95 

Scraper Caper -Corf 34.95 

Miner 2049'er- Cart 34.95 

Spy Hunter -Cart 29.95 

Topper-Cart 29.96 

Up 'N Down -Corf 29.96 

Beach Landing -D 27.95 

Pic Builder-D 27.95 

Astrochose - D 20,95 

Fllp-Flop-D/T 20.95 

Sorgon II -D/T 16.96 

Odesta Chess - D 49.96 

Millionaire -D 27.95 

Spy vs. Spy - D 23.95 

Adventure Writer -D 41.95 

MMG Basic Compiler -D . . 69.96 

Summer Games - D 27.96 

Pltstop II - D 27.95 

Gateway to Apshal - Corf . . 27.95 
Montezuma s Revenge -D . 29.95 



MISC. ATARI (contd,) 

Dragon/Pern - D 27,95 

Adventure Master - D 34,95 

Get Rich Series - D 34,95 

Q-Bert-Cart 34.95 

MPP Modern Driver -D .... 19.95 

MIcrofller-Cart 34.95 

Mlcrocheck-D 34,95 

Mr. Do's Castle -Cart 34.95 

Frogger II - Cart 34.96 

Net Worth • D 64.95 

Stickybear-D 27.95 

Fischer Price -Cart 19.95 

Windham Classics -D 19.96 

Dmnltrend Universe -D. , , .69.95 

Space Beagle -D 23,95 

Adventure Writer- D 41,95 

Beochhead-D 23,96 

Letter Perfect / Spell - D , , , 74,95 
Harcourt/Biuce S,A.T. - , . 69.96 
S.A.G.E. Graphics Editor -D 39.95 

Strip Poker-D 23.95 

Millionaire -D 27.95 

Scroll of Abadon-D 23.95 

OPTIMIZED SYSTEMS 

Action-Cart 69.95 

Basic XL-Cart 69.95 

MAC/66 -Cart 69.96 

MAC/65 Tool KIt-D 27.95 

Action Tool Klt-D 27.96 

DOS XL -D 27.95 

Action Aid-D 27.95 

C66-D 59.95 

Handy- Writer -D Call 

Postal Tool-D 41,95 

PrintTool-D 41.95 

SIERRA ON-LINE 

Dark Crystal -D 27.95 

Homeword-D 49.95 

Quest For Tires - D 23.95 

Ultima II - D 41.96 

Ultima 1-D 23.95 

SPINNAKER 

Adventure Credtor-D 22.96 

Aerobics - D 27.96 

All In the Color Caves • C .. 22.95 

Alphabet Zoo -Cart 22.95 

Delta Drawing - Cart 22.95 
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__._„_,,_ For Technical Info, Order 

To Order Call Toll Free inquiries, or for Wise. Orders - 

800-558-0003 41 4-351-2007 
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SPINNAKER (contd.) 

Pacemaker -Cart 22.96 

Fraction Fever -Cart 22.96 

Grandma's House - D 19.95 

Kids on Keys - Cart 22.95 

Klndercomp-Cart 22.95 

Search / Amazing Thing - D 22.95 

Snooper 'l-D 22.95 

Snooper '2-0 22.95 

Story Machine -Cart 22.95 

Trains- D 22,95 

SSI 

Carrier Force -D 41,95 

Combat Leader -DA 27.95 

Cosmic Balance 11 ■ D 27.95 

Cosmic Balance - D 27.95 

Broadsides -D 27.95 

War In Russia ■ D 55.95 

50 Mission Crush - D 27.95 

Questran • D 34.96 

Rolls West - D 27.95 

Bomb Alley -D 41.95 

Computer Ambush - D 41.95 

Galactic Adventures -D 41,95 

Computer Baseball ■ D 27,95 

Reforger 88 - D 4195 

Objective Kursk -D 27,95 

Breakthrough / Ardennes - D 41,95 

Field of Fire - D 27.96 

Imperial Golactium - D . . . . 27.95 

SYNAPSE 

Air Support -D/r 23.95 

Alley Cat - D/r 16.96 

Blue Mox-DA 23.95 

Dimension X - D/T 23.95 

Drelbs-DA 23.95 

Electrician -DA 23.95 

Encounter -D 16.95 

Fort Apocalypse - DA 23.95 

Necromancer - DA 23.95 

New York City - DA 23.95 

Pharooh's Curse - DA 23,95 

Quasimodo -DA 23,95 

Rainbow Walker -DA 23,95 

Relax Stress Reduction Sys, , 79.96 

Shomus Cose 11 -DA 23.95 

Zepplln-DA 23,95 

Synflle-D 49.95 

Syncalc-D 49.96 

Syntrend - D 49.95 

Synchran-D 27.95 

Syncomm-D 27.96 

Synslock - D 27.96 

D-Dlsk T-Cassette 
Cait-Corttldge 
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Est. 1982 

ORDERING INFORMATION Please specify system. For last delivery send cashier's ctieck, money order or direct bank transfers. Personal and 

company checks allow 2 weeks to clear. Charges for COD are $3.00. School Purchase Orders welcome. In CONTINENTAL USA, include $3.00 

shippinq per sottware order Include 3% shipping on all Hardware orders, minimum $3.00. Mastercard a Visa please include card # and expiration 

date Wl residents please add 5% sales tax. HI, AK, FPO, APO, Canadian orders — add 5% shipping, minimum $5,00 All other foreign orders, qRDER LINES OPEN 

please add 15% shipping, minimum $10,00. All goods are new and include factory warranty. Due to our low prices^ all sales are final. All defective ^^_^^^ 1 1 AIVI - 7 PM CST 

returns must have a return authorization number. Please call 414-351-2007 to obtain an RA# or your return will NOT be accepted for replacement g^, 12 PM ■ 5 PIvl CST 

or repair. Prices and availabilily are subject to change without notice. 
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Ask 

Mr. 

Forth 




by Donald Forbes 



To demonstrate FORTH on the Atari, you'll want 
to stress the best features of each. Atari's superb graph- 
ics came to the forefront again when Compucer Ani- 
mation Primer at last hit the bookstores. Those who 
bought Atari for its graphics capabilities — then waited 
two years for this work by David Fox and Mitchell 
Waite — were well rewarded for their patience. 

The first half of the book gives a vivid look at state- 
of-the-art computer-generated animated movies. The 
second half is all Atari: animation with character sets 
and color registers, player/missile graphics, scrolling 
and display lists, and more than fifty pages of Atari 
BASIC programs. The authors chose to work solely 
with the Atari computer because of its unique poten- 
tial for graphics and animation. 

The color registers on the Atari, as they put it, give 
programmers amazing animation capabilities, even in 
BASIC. "Unbeknownst to many people, the Atari 
400/800 contains color-mapping hardware (called col- 
or registers), and this feature alone gives it awesome 
capabilities when compared to its competitors." 

The book culminates in the Great Movie Cartoon 
—a scrolling street scene with five layers of depth, 
plus cars and strolling people in the foreground. 
So where does this put FORTH? 

FORTH stands at the forefront of the second gener- 
ation of computer software — where the user writes his 



own software, instead of going through a middleman. 
Elimination of the GOTO construct (with its result- 
ing spaghetti code) and the subsequent realization that 
all programs could be constructed with three struc- 
tures (sequential, two-way branch and "do while") led 
to top-down design for large systems. Users could be- 
gin to exercise control. 

FORTH, although it first achieved prominence in 
the days before cheap megabyte memories and nano- 
second cycles as "an operating system for crippled 
micros," is moving with the new trend, along with 
LOGO in the educational field, and UNIX and the 
C language on the mainframes and minis. FORTH, 
with no GOTO, is ideally suited for structured pro- 
gramming, top-down program design and bottom-up 
program compilation. The user can build upon past 
software to solve new problems as they arise. 

Back to the introductions. 

The easy way for you to introduce Atari users to 
FORTH is via the chapter called Color Graphics and 
Sound in Bob Albrecht's Atari BASIC, which prob- 
ably came wrapped in the same box with their Atari 
computer— and certainly belongs on the bookshelf of 
every Atari owner 

The Italians have a saying, "Tradutore, traditore," that 
the translator is a traitor But many BASIC statements 
have straightforward FORTH counterparts. 
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If you organize a demonstration for your user group, 
you might find a teammate who will display the BA- 
SIC code on one machine while you display the cor- 
responding FORTH code on another. 

The chapter on color graphics and sound provides 
a large number of illustrations. For example, 10 GR. 
3 becomes 3 GR. This short program: 

18 GRAPHICS 3 

29 PRINT "LINE 1" 

30 PRINT "LINE 2" 
46 PRINT "LINE 3" 
59 PRINT "LINE 4" 
69 GOTO 60 

translates as follows: 

: P285 t for page 285 ) 3 GR. 
CR ." LINE 1" CR ." LINE 2" 
CR ." LINE 3" CR ." LINE 4" QUIT ; 

The code 60 GOTO 60 gets rid of the READY, and 
QUIT gets rid of the OK. (Which brings to mind an 
oldie-BASIC to FORTH: "I'm READY! You're OK!") 

This program plots a point: 

: P28e 3 GR. 2 5 PLOT 

." This is plot position 2,5" ; 

and this one plots four points: 

: P2S7 3 GR. 1 COLOR 
5 5 PLOT 15 5 PLOT 
5 15 PLOT 15 15 PLOT ; 

Remember, however, if you have QS Forth, or the 
Extended fig-FORTH written by Patrick L. MuUarky 
and once sold by APX, that both PLOT and DRAW- 
TO take COLOR as their third input parameter. So, 
in this (and other) examples, you would have to use 
this code: 

: P287 3 GR. 5 5 1 PLOT 15 5 1 PLOT 
5 15 1 PLOT 15 15 1 PLOT ; 

This loop plots a line of points: 

FOR I=e TO 19 STEP 2:PL0T I,I:NEXT I 

but in FORTH we must add 1 to the loop index: 

: P2S9 3 GR. 1 COLOR 28 8 DO 
I I PLOT 2 +LOOP ; 

This program displays a large X: 

: P291 4 GR. 1 COLOR 
8 8 PLOT 78 39 DRAHTO 
78 8 PLOT 8 39 DRAHTO 
." X Harks the spot" ; 

This program features an endless loop (until you 
hit an interrupt key) to replace 60 GOTO 60 and the 
use of I as the index for the loop: 

: P292 4 GR. BEGIN 2 8 DO I COLOR 
8 48 DO 9 8 PLOT 78 I DRAHTO 
-13 +LOOP LOOP ?TERNINAL UNTIL ; 

Here is the SETCOLOR statement: 

: P293 3 GR. 1 COLOR 8 8 2 SETCOLOR 
9 3 PLOT 38 3 DRAHTO 
." Hhat color do you see?" ; 

and here SETCOLOR uses the loop indexes, while 
we use an empty DO. . . LOOP to create a delay. No- 
tice that J is a FORTH-79 word you may not have, 
which copies the third item of the return stack onto 



the parameter stack, and thus lets you access the in- 
dex of the outer loop. It comes in handy for two- 
dimensional arrays. 

: DELAY 39808 8 DO LOOP ; 
: J >R >R >R R R» ! 

>R >R >R Rtt e ; 
: P295 3 GR. 1 COLOR 

." Hatch My colors change" 
5 8 DO 16 8 DO J I 2 SETCOLOR 
5 5 PLOT 38 5 DRAHTO 
DELAY LOOP 2 +LOOP ; 

Try this as a simple animation demo of a man ap- 
proaching you. 



1 COLOR 



P296 3 8 DO I GR. 

4 12 SETCOLOR 

5 PLOT 7 5 DRAHTO 6 6 PLOT 
18 DRAHTO 4 15 DRAHTO 
18 PLOT 8 15 DRAHTO 5 
9 DRAHTO 7 7 PLOT 9 9 

DELAY -2 +LOOP 

." Hhat a funny HanM!" 



5 
6 
6 
3 



7 PLOT 
DRAHTO 



The next program draws rectangles in three sizes 
and shows how this code: 

PLOT H-2,Y-2: DRAHTO X*2,Y-2 

can be done, using FORTH constants: 

88 CONSTANT X 48 CONSTANT Y 
: P297 7 GR. 1 COLOR 

8 15 2 SETCOLOR X Y PLOT 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



PLOT 

- DRAHTO 
+ DRAHTO 
+ DRAHTO 

- DRAHTO 

- PLOT 

- DRAHTO 

* DRAHTO 

* DRAHTO 

- DRAHTO 



We can combine three graphics modes in one pro- 
gram, as well as having the use of both variables and 
constants: 

1 VARIABLE H 8 CONSTANT X 8 CONSTANT V 

: P298 BEGIN 1 ' H ! 3 8 DO I GR. 
1 COLOR 8 12 SETC8L0R 

X ! 48 H e / ■ Y ! 



88 M e / 
X Y PLOT 



DELAY H e 



- PLOT 

- DRAHTO 
+ DRAHTO 
+ DRAHTO 

- DRAHTO 

- PLOT 

- DRAHTO 
* DRAHTO 
+ DRAHTO 

- DRAHTO 
2 « ■ M 



-2 4L00P ?TERHINAL UNTIL ; 

Here, incidentally, is a familiar screen from your 
Atari BASIC Reference Manual. 

: P51 3 GR. 8 2 8 SETCOLOR 1 COLOR 
17 1 PLOT 17 18 DRAHTO 
9 18 DRAHTO 19 1 PLOT 
19 18 DRAHTO 28 1 PLOT 
28 18 DRAHTO 22 1 PLOT 
22 18 DRAHTO 38 18 DRAHTO 
1 752 C! CR 6 SPACES 
." Atari Personal Convuters" 
38988 8 DO LOOP QUIT ; 

This brings us to the end of Bob Albrecht's section 
on graphics. As you can see, the FORTH version of 
the BASIC code produced relatively few surprises. The 
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next section of the book explores Atari's four voice 
capabilities, providing us a chance to show off some 
new techniques. 

Vocal FORTH. 
First of all, you want a word to shut off the four 
voices at any time, just as END will do in BASIC. 
: ouiET 4 e DO I e e sound loop ; 

■^The valFORTH fix — for those of us who cannot 
remember that SOUND looks for channel, frequency, 
distortion and volume— is CatFish Don't Vote. This 
next program allows you to experiment with loudness 
by furnishing an integer from to 15, and —5 to end 
it. 



e VARIABLE L 

: INPUTtt QUERY CR ?TERMIHAL 

CR INTERPRET ; 
: P299 BEGIN INPUTtt L ! L 6 

NOT IF 115 10 L e SOUND 

SOUND OUIT THEN 

?TERMINAL UNTIL ; 



-5 = 
ELSE 



You will find frequent use for the word INPDT# 
because many BASIC interactive programs ask for a 
signed integer from the keyboard. The following loop 
increases the loudness, step by step: 



P3e0 16 DO 115 10 I 
DELAY LOOP QUIET ; 



SOUND 



and this loop varies the distortion levels: 

: PSeOB 16 DO 115 I 8 SOUND 
DELAY LOOP QUIET ; 

This program runs through all of the notes with 
a short time delay: 

: DELAY-BRIEF 1000 DO LOOP ; 
: P3eeC 256 DO I 10 8 SOUND 
DELAY_BRIEF LOOP QUIET ; 

Notice that you can use the underscore PL/1 style 

to separate words, as in DELAY BRIEF, which looks 

neater than the COBOL-style hyphen. 

The READ. . .DATA construct is used repeatedly 
in BASIC. The translation to FORTH is very easy 
. . .once you know how. Suppose we want to define 
an array with four locations, holding initial single pre- 
cision values of 12, 24, 48 and 96, and want to print 
the last two. Here is the code: 

12 VARIABLE GROUP 

24 , 48 , 96 . 

GROUP 4 + e . <ret> 48 Ok 

GROUP 6 + e . <Pet> 96 Ok 

This word will fetch the nth element of the array: 



: GET-GROUP 
2 * 
GROUP 

* 

GET-GROUP 
3 GET_GROUP 



t Stack: nl — n2 ) 

C find byte offset } 

C leaue parn field start i 

( calculate abs location ) 

C fetch value } 

, <ret> 12 Ok 

. <ret> 96 ok 



With this technique, we can store the notes of a 
musical scale in a table and read them at will: 

DECIMAL 145 VARIABLE DATA 
129 , 122 , 109 , 97 , 92 , 
82 , 73 , 65 , 61 , 54 , 
48 , 46 , 41 , 36 , 32 , 



: HAIT-LONG 30000 DO LOOP ; 

: HAIT-SHORT 1000 DO LOOP ; 

: GET-DATA 2 « DATA + fi ; 

: SCALE C P. 302 ) 5 GR. 

16 DO 1 COLOR I GET-DATA 
10 8 SOUND 12 SETCOLOR 
5 11 PLOT 70 11 DRAHTO 
HAIT-LONG 18 8 SOUND 
MAIT-SHORT LOOP ; 

If we want to display warm colors with high notes 
and cold colors with low notes, we can use a similar 
technique. The trick here is to alternate the numbers 
in the table and retrieve them in pairs: 

DECIMAL 122 VARIABLE DATA 

9 , 109 , 10 , 97 , 13 , 

92 , 15 , 82 , 1 , 73 , 

2 , 65 , 3 , 61 , 5 , 

: GET-NOTE 4 « DATA + G ; 

: GET-COLOR 4 « DATA 2 + + Q ; 

: P3e2B 3 GR. 8 DO 1 COLOR 
I GET-COLOR 2 SETCOLOR 
10 9 I - PLOT 28 9 I - DRAHTO 
I GET-NOTE 10 8 SOUND HAIT-LONG 
2 SETCOLOR 10 8 SOUND 
HAIT-SHORT LOOP ; 

Here is the way to handle GOSUB and RETURN 
within a FORTH program, and play three notes: 

VARIABLE N 

: GOSUBieO N C 10 8 SOUND 
HAIT-LONG e 10 8 SOUND 
HAIT-SHORT ; 

: P3e3 122 N ! GOSUBlOe 

109 N ! GOSUBIOO 

97 N ! GOSUBIOO ; 

You can play a one-octave scale and plot notes on 
the screen in color, using nested subroutines. Here 
is a way to do it with two FORTH screens: 



SCR 1 

8 VARIABLE 

VARIABLE 



N VARIABLE X 

Y 
G0SUB200 30000 DO LOOP ; 
GOSUBIOO X C Y e PLOT 

10 8 SOUND G0SUB200 



N C 
SCR 2 
: P3e4 

14 5 



~> 



3 GR. 1 COLOR 1 10 2 SETCOLOR 
DO I PLOT 38 I DRAHTO 

15 PLOT 7 15 DRAHTO 

C 30 15 PLOT 35 15 DRAHTO ) 

2 +LOOP G0SUB200 

4 4 2 SETCOLOR 2 COLOR 



3 H 


15 


Y 


122 


N 


GOSUBIOO 


5 K 


14 


Y 


189 


N 


GOSUBIOO 


7 X 


13 


Y 


97 


N 


GOSUBIOO 


9 X 


12 


V 


92 


N 


GOSUBIOO 


11 X 


11 


Y 


82 


N 


GOSUBIOO 


13 X 


10 


Y 


73 


N 


GOSUBIOO 


15 X 


9 


Y 


65 


N 


GOSUBIOO 


17 X 


8 


Y 


61 


N 


GOSUBIOO 


QUIET 


J 











You can show off two of the four voices with the 
following: 

8 VARIABLE LO VARIABLE LI 
41 VARIABLE NO 129 VARIABLE Nl 

: GOSUBioeo 

NO e 10 LO SOUND 

1 Nl e 10 LI SOUND 
30000 DO LOOP ; 

: P3e4B GOSUBIOOO 

8 LI ! GOSUBIOOO 

LO ! GOSUBIOOO 

LI ! GOSUBIOOO ; 

Here is your chance to demonstrate a simple tune 
with two voices, using these three FORTH screens: 

(continued on next page) 
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5CR 20 

• VARIABLE m • WMIAM-E Nl 
: »ELAY5fl 5»»0 • »« LtOP ; 
: »ELAYiee 1%%%9 • »0 LtOP ; 
: BELAYlSe 150OO « »e LOOP ; 
: G05UB1000 HO 10 8 SOUND 

1 Nl e 10 sewrn ielayso ; 

: G0SUB2Q00 NO 10 8 SOUND 
1 Nl e 10 8 SOttNO DELAYIOO ; 

: GOSUBSeOO NO e 10 8 SOUND 
1 Nl e 10 8 SONMD DELAY150 ; 

SCR 21 

: ISTHALF 



41 


NO 


129 


Nl 


GOSUBZeOO 


32 


NO 


109 


Nl 


GOSUBIOOO 


27 


NO 


92 


Ul 


GOSUBIOOO 


31 


NO 


97 


Nl 


GOSUBXeOO 


32 


NO 


109 


Nl 


GOSUBIOOO 


36 


NO 


122 


Nl 


C0SUB300e 
GOSUBIOOO 


41 


NO 


129 


Nl 


36 


NO 


' 122 


Nl 


GOSUBIOOO 


32 


NO 


' 109 


Nl 


GOSUBIOOO 


36 


NO 


> 122 


Nl 


GOSUBIOOO 


27 


NO 


' 92 


Nl 


GOSUBIOOO 





NO 





Nl 


GOSUBIOOO 


41 


N8 


129 


Nl 
-> 


G0SHB2000 


SCR 22 






: 2NDHALf 








32 


NO 


109 


Nl 


GOSUBIOOO 


25 


NO 


1 92 


Nl 


GOSUBIOOO 


36 


NO 


! 122 


Nl 


G0SUB2000 


32 


NO 


' 109 


Nl 


GOSUBIOOO 


31 


NO 


97 


Nl 


GOSUBIOOO 


32 


NO 


109 


Nl 


GOSUBIOOO 


36 


NO 


122 


Nl 


GOSUBIOOO 


27 


NO 


92 


Nl 


G0SUB2000 


41 


NO 


129 


Nl 


GOSUBIOOO 


32 


NO 


109 


Nl 


GOSUBIOOO 


36 


NO 


122 


Nl 


GOSUBIOOO 


41 


NO 


129 


Nl 


GOSUBIOOO 


GR. , 








: P385 11 


iTHALF 2NI 


mALF QHIET 



Now you see how Atari's sound statements can be 
demonstrated in FORTH. 

Random numbers. 

One important prerequisite for many Atari games 
is a random number generator to simulate chance 
events, such as a throw of the dice or a turn of the 
cards. Fortunately, Atari has a random number gener- 
ator built into the hardware, in location 53770 (or 
520A in hex), which will give you a random number 
between and 255. In BASIC, all you need is: 

10 PRINT PEEKC5377e) 

but in FORTH, it's better to define a word that will 
give a number between and a chosen upper limit. 
For example, JO RND# will give a random number 
from to 9. If you want a range of, say 5 to 15, then 
just add 5 to the result. Here is a definition which 
divides by the number at the top of the stack, drops 
the quotient and keeps the remainder as the random 
number: 

st»ck: nl — n2 J 
hardware address ) 
fetch the byte ) 
sw»p for divide ) 
divide by nl ) 
discard quotient J 
and keep reitainder ) 



RNDtt 




53770 




ce 




SWAP 




/NOD 




DROP 









You will find many uses for this simple and elegant 
random number generator. 

Animation. 

What about computer animation? Well, that brings 
us to the point of this whole story. David Fox says 
(on page 35) that, "if you want to write computer 
games for personal computers that effectively use ani- 
mation. . .you need to know a high-level computer 
language. . .You should also look at FORTH and C, 
two high-speed languages that are now available for 
many personal computers . . .You might also need to 
understand something called bit-slice microprocessors, 
as well as the FORTH language. FORTH is a tricky, 
powerful, exclusive (bordering on religious) language 
that is also extremely fast." 

A few pages later, he adds, "You may also want to 
investigate FORTH as a graphics language. Although 
it is rather difficult to learn, it is a somewhat elegant 
language, and your own graphics instructions are eas- 
ily added to it. Its advantages include high speed, im- 
mediate execution of programs (no compilation like 
in Pascal and C), ability to define your own com- 
mands, and very compact code." 

So let us take David Fox at his own word and start 
translating some of his BASIC programs into FORTH. 

(continued on next page) 




DONT YOU REALIZE 

YOVR COMPUTER WANTS 

TO HELP OUT, T007 

You've got your spouse working. 

The kids have paper routes. 

Even the dog provides stud service tor a fee. 

Times are hard. 
So why is your computer still unemployed? 

LET YOUR ATARI CONTRIBUTE 
TO THE FAMILY INCOME 

If it's a 48K or 64 K Disk System, SENECOM tias the approach! you may 
tiave been waiting for. You decide no risk. 

Send just $9.95 for tfiree PDQ (Premium Disl< Quality) diskettes: 
Double Density and Double-Sided (like six top-ot-tfie-line disks!) with 
21-year warranty. 

Boot in the program on the back of each disk and your Atari will tell 
you how it can boost the family income, more than you might have 
thought possible. 

SENECOM'S UNIQUE PLAN 
FOR YOU AND YOUR ATARI 
Your computer will love it. At last it can pull its own weight in the 
family, and more. Maybe lots more. 

And you: will you like it too? Who knows? Some people wouldn't know 
a genuine opportunity from the intestinal flu. Some people will reuse 
the back side of the disk for (sob!) something else. 

At least they'll be using the highest quality disk ever made; a disap- 
pointed computer might take comfort in that. 

ORDER PDQ! write "PDQ" on a paper, with your (legible!) name 

and address. Send with $9.95 to: 

WB1MS!®®M Dept. 20 13 White St., Seneca Falls.NY 1314^ 

SENECOM will pay shipping lor USA and Canada. 

NYS residents, add 7% Sales Tax. 

Offer limited to one order per address at this price. 

Atari is a registered trademark of Atari, Inc. 

SENECOM is a registered trademark of Seneca Computer Company, Inc. 
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ULTIMATE 
STORAGE 

Here's the perfect way to organize your ANALOG 
Computing library— sturdy, custom-made binders 
and files in deep blue leatfierette witli embossed 
silver lettering. Silver labels are included to index 
by volume and year One binder or a box-style file 
is all you'll need to accommodate 12 issues (1 year) 
of ANALOG Computing— all thie games, pro- 
grams, tutorials and utilities that you want handy. 




Tlie ANALOG Computing binder opens flat for 
easy reading and reference. They're economically 
priced at only $7.50 each— 3 binders for $21.75 
or 6 binders for $42.00, postage paid. 

Tlie ANALOG Computing file is attractive and 
compact, holding 12 issues for easy access. Files 
are available for only $5.95 each— 3 files for $17.00 
or 6 files for $30.00, postage paid. 

Foreign orders — add $2.50 each for shipping and handling. 
Please allow four to five weeks for delivery. 



I enclose my check or money order in the amount 
of $ . 

Send me ANALOG Computing files 

ANALOG Computing binders. 



PLEASE PRINT. 
Name: 



Address; 
Oily: 



State: 



Zip Code: 



Send your order to: 

Jesse Jones Industries 

P.O. Box 5120, DEFT ACOM 
Philadelphia, FA 19141 

Satisfaction guaranteed or money refunded. 



Here are a few for openers. If you manage to trans- 
late some of the others, you will have the makings 
of a spectacular demo. 

To simulate an explosion, you can flash ten random 
colors on the background with this BASIC code: 

180 FOR I = 1 TO 10 

200 POKE 712, RNDC0)«255:NEXT I 

300 POKE 712,0:REI1 FLASH BACKGRND 

which you can render in FORTH as: 

: DELAY 1000 DO LOOP ; 
: EXPLODE 19 GR. 10 1 DO 255 RNDtt 
712 C! DELAY LOOP 712 C! ; 

This program will flash through all the screen col- 
ors so fast that, if you leave out the delay loop, you'll 
hardly be able to see them. Here it is, in BASIC: 

100 GRAPHICS 3+16 

200 REM STEP THROUGH EVERY COLOR 

300 FOR 1=0 TO 254 STEP 2 

400 POKE 712,I:REM CHANGE BACKGRND 

500 FOR H=l TO 50: NEXT H 

600 NEXT I: GOTO TO 200 

and here's the FORTH version: 

: DELAYIOO 1000 DO LOOP ; 
: FLASH 19 GR. 254 DO I 712 C! 
DELAYIOO 2 +LODP ; 

Here's an airplane, wingtip lights flashing, heading 
toward you in a lightning storm: 

18 GRAPHICS 3 +16 

20 COLOR 2 

30 PLOT 10,8 

48 COLOR 1 

50 DRAMTO 29,8 

60 COLOR 3 

70 PLOT 30,8 

88 COLOR 1 

98 PLOT 20,5:PL0T 28,6 

180 PLOT 19,7:DRAHT0 21,7 

110 PLOT 19,9:DRAHT0 21,9 

120 SETCOLOR 1,3, 6: REM HAKE RED 

130 SETCOLOR 2,12,6:REM MAKE GREEN 

140 FOR 1=1 TO 50:NEXT I:REM PAUSE 

150 SETCOLOR 1,0,0:REM MAKE BLACK 

160 SETCOLOR 2,0,0:REM MAKE BLACK 

170 FOR 1=1 TO 400 

188 IF RND(8)«2e<l THEN SETCOLOR 4,0,1 

4:SETC0L0R 4,0,0:REM RANDOM LIGHTNING 

FLASH 

190 NEXT I 

280 GOTO 120 



Here's the FORTH counterpart: 

: SE. SETCOLOR ; : SEC DELAYIOO ; 
: AIRPLANE_IN_STORM 19 GR. 

2 COLOR 10 8 PLOT 

1 COLOR 29 8 DRAHTO 

3 COLOR 30 8 PLOT 

COLOR 20 8 PLOT 

1 COLOR 20 5 PLOT 20 6 PLOT 
19 7 PLOT 21 7 DRAMTO 

19 9 PLOT 21 9 DRAHTO 
BEGIN 1 3 6 SE. 2 12 6 SE . 
SEC 1 8 SE. 2 8 SE. 
488 1 DO 200 RNDtt 18 < IF 

4 8 14 SE. 4 8 8 SE. ENDIF 
LOOP 7TERMINAL UNTIL ; 

As David Fox says, "We will show you how to bring 
the exciting world of animation into your own home. 
If you have an Atari microcomputer, you will be able 
to turn your computer into a fabulous animation ma- 
chine." n 
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Griffin^s 
Lair 

Educational 

Programs 

Revieiv 




by Braden E. Griffin, M.D. 



This month's column takes a look at five computer 
games from CBS Software specifically designed for 
children three to six years of age. Three of these pro- 
grams are the result of a cooperative effort with Chil- 
dren's Television Network of "Sesame Street" fame. 
The other two were developed by Joyce Hakansson 
Associates. The high standard of quality one might 
expect is evident. 

CBS Software's commitment to quality education- 
al software for preschool children is refreshing. Who 
knows if these programs will make a child smarter, 
or school easier? On the other hand, I seriously douht 
that playing them causes stupidity. I call to mind a 
properly-rephrased old adage. What you don't know, 
can't help you. No matter what we do, the kids are 
"alright." 

BIG BIRD'S SPECIAL DELIVERY 
CBS SOFTWARE 
One Fawcett Place 
Greenwich, CT 06836 
Cartridge or Cassette $29.95 

Object recognition is fundamental in the learning 
process. The ultimate realization of this skill is illus- 
trated in the parable of the drunk who enters a pub 
accompanied by his duck. Although rewritten in the 
form of a morality play, the original version begins 



with the barkeep's query, "Where'd ya get the pig?" 
"That's no pig. It's a duck," belches the overly satu- 
rated swillpot. To which the very astute bartender re- 
plies, "I was talking to the duck!" 

With Big Bird's Special Delivery, preschoolers from 
three to six years of age can practice object recogni- 
tion and enhance their abilities to classify objects. 
Big Bird delivers a package to Little Bird, who is to 
deliver it to the appropriate store. Four stores are de- 
picted on the screen with their respective owners and 
a picture of an object sold at the store. 

Using the ARROW keys, Little Bird may be moved 
from store to store. If the match is incorrect, the store- 
keeper shakes his or her head in a negative fashion. 
A correct match elicits an approving nod, followed 
by Little Bird fluttering with glee to a happy little 
tune. 

Two variations of the matching game are offered. 
In The Same Game, the matching picture is exactly 
like the one on the package. 

Find the Right Kind requires the child to match ob- 
jects which are in the same category. The categori- 
cal listing of objects is a simple one designed for this 
age group. When confronted with the delivery of the 
butterfly to either the airplane store (both fly) or the 
store with the picture of a bunny, the correct choice 
is the latter. The matches are at a very rudimentary 
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level and, though sometimes confusing to overly in- 
sightful adults, this grouping of objects is the result 
of considerable thought. 




Big Bird's Special Delivery. 

Colorful graphics with a little animation provide 
the background for this enjoyable, interactive game 
developed by Children's Television Workshop Soft- 
ware Group. 

DUCKS AHOY 

CBS SOFTWARE 

One Fawcett Place 

Greenwich, CT 06836 

Cartridge or Cassette Joystici< $29.95 

Preschoolers will enjoy this game, while develop- 
ing a number of learning skills. 

Guiding a gondola through the canals of Venice 
provides a classic setting for this well designed pro- 
gram from Joyce Hakansson Associates, Inc. That's 
Italy's Venice, not the one in California. The absence 
of roller skates and the paucity of ducks "pumping 
iron" makes this immediately apparent. Italian ducks 
seem to be better off riding in a boat than swimming 
in their natural aquatic habitat. 

The object is to pick up the ducks as they jump 
from the docks of their homes, transporting them to 
the beachfront boardwalk. The ducks waddle through 
their homes, across bridges and around fountains, to 
arrive at one of a number of launching points. 

A joystick is used to maneuver one's craft into the 
proper position for embarkation. One or two ducks 
may be carried at a time, depending on the location 
of a menacing hippo. The sight of bubbles surfacing 
from below temporarily reveals itself and helps avoid 
the sinking of the boat. Too many ducks in the boat, 
an improperly positioned boarding, or allowing ten 
ducks to jump into the water — all result in a quick 
visit to Davy Jones's locker. 

The total number of ducks delivered is displayed 
and continues to increase until all four of one's boats 



are sunk. Counting skills are exercised as the child 
keeps track of how many ducks are at the beach and 
how many have jumped into the water. 

The most emphasized skills in Ducks Ahoy involve 
logical thinking and planiiing ahead. Since the ducks 
arrive at their respective docks at different times, the 
child must anticipate just the right time to dock, and 
then quickly steer the boat to the other ducks, keep- 
ing the fewest ducks possible from jumping into the 
water. The presence of potential peril, in the form 
of the hippo, serves to develop an awareness of fac- 
tors influencing outcome, exclusive of the immediate 
objective. 




Ducks Ahoy. 

Pleasing musical interludes and lively graphics add 
extra appeal to this program. An activity book for 
use without the computer is included. Though de- 
signed for the very young, this game will be enjoyed 
by children of all ages, as they perfect strategic ap- 
proaches. Described as the "ducky" discovery game 
of planning and surprise, Ducks Ahoy is just about 
everything it is "quacked up" to be. 

SEAHORSE HIDE'N SEEK 

CBS SOFTWARE 

One Fawcett Place 

Greenwich, CT 06836 

Cartridge or Cassette Joystick $29.95 

Five years ago, a game like Seahorse Hide'n Seek 
would have been an arcade hit. Three years ago, it 
would have been a popular home computer game for 
all ages. Now, games with far more sophisticated pro- 
gramming appear in computer magazines, available 
for the price of a few hours' typing. 

Does this lessen the value of Seahorse? Not in the 
least. This program was not developed years ago for 
all age groups. It was developed by Joyce Hakansson 
Associates for preschoolers, with particular attention 
to age-specific developmental abilities. Simple as it 
may appear, there is ample evidence of thoughtful 
design. 
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The capsule summary on the packaging states that 
this is "an easy-to-fathom game of color camouflage 
and size relationships." I know that many of you, see- 
ing such a clever play on words, must think that I'm 
ghosting for CBS Software. I, too, was astonished. 
Someday, no doubt, I'll come face to face with this 
crafty wordsmith. And, should I be bested by this 
pretender's badinage, I shall render in tribute one 
dozen cream-filled bon mots. 




Seahorse Hide'n Seek. 

But. . .the game. It is easy to play and understand. 
I am sure that, after a few minutes of play, any child 
asked how things are going will respond, "Swimming- 
ly." (Gotcha!) 

The object is to guide a sea horse across a coral reef 
to the safety of a shipwreck hideaway. Between the 
sea horse and its destination are a number of strange- 
looking lagoon fish. If caught by one of these denizens 
of the deep, the sea horse is chased out to sea — and 
out of the game. Although these hungry predators 
come very close, no violence occurs, as our heroes 
get their prehensile tails out of there. 

The game begins with four sea horses. On occa- 
sion, the bad guys can be outmaneuvered, but there 
are other avenues of escape. In nature, the game tells 
us, sea horses use camouflage to hide. In Seahorse, 
one can do the same. By positioning the sea horse 
on a piece of coral, the horse's color can be changed 
to match that of the underlying coral. If the colors 
match and the coral totally encompasses the hiding 
sea horse, the fish will pass right by. 

The coral caves will also prove a refuge. . .that is, 
if the sea horse fits through the opening, and the cave 
is unoccupied. In the former case, one's sea horse will 
appear at a distant, but identically-shaped cave open- 
ing. This distance may be nearer to or farther from 
the much sought-after shipwreck. The stipulation of 
occupancy refers to an octopus who hides in random 
caves, waiting to tickle the sea horse. 

Guiding the sea horse into the hcile in the ship- 
wreck resuks in a score. After five successes have been 



recorded, the size of the next sea horse is doubled, 
making it much more difficult to hide. The larger and 
smaller variations alternate throughout the game. 

The obvious emphasis of Seahorse Hide'n Seek is 
on the relationships of size and color. Deciding if a 
cave opening is large enough, or if the sea horse can 
be completely covered by a particular piece of coral, 
provides an excellent opportunity to practice these 
skills. 

This is an enjoyable game which, like the others, 
would be an ideal setting for a child's initial computer 
experience. The game design is excellent; and the ed- 
ucational concepts, sound. This one is a keeper, es- 
pecially with those cute little broncos of the brine. 
I wondered if these were the mounts sought after by 
Dick Butkus and Bubba Smith for their water polo 
match. And I got the answer straight from the horse's 
mouth: "Nayy. . .nayyy." 

ERNIE'S MAGIC SHAPES 
CBS SOFTWARE 
One Fawcett Place 
Greenwich, CT 06836 
Cartridge or Cassette $29.95 

Ernie of "Sesame Street" dons a magician's cloak 
and hat to perform a little prestidigitation, as he helps 
youngsters develop their abilities in visual discrimina- 
tion. When Ernie waves his magic wand, a colorful 
geometric shape appears (as if by magic) above his 
head. A further gesture and — voila! — another shape 
materializes on the table next to him. If this shape 
matches the one above Ernie's head, and the appropri- 
ate ARROW key is pressed, zip- — it appears at the 
top beside the original. Shapes continue to appear 
on the table until the matching one is chosen. 




Ernie's Magic Shapes. 

There are six variations of this activity. Single geo- 
metric forms of different colors are presented in the 
easier games, requiring the child to match the shape, 
size or color. More complex composites of shapes are 
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found as the level of difficulty increases. The child 
must match the individual components by color, shape 
and size. A successful match is rewarded by the ap- 
pearance of a hyperactive rabbit jumping on Ernie's 
wand. 

Intended for preschoolers, this program does not 
overwhelm children with computer manipulations or 
create frustration as they play. Simplicity of design 
is a most important factor in developing these early 
skills. A thoughtfully prepared combination of this 
simplicity with eye-catching, colorful graphics is nec- 
essary to maintain the attention of this age group. 

Ernie's Magic Shapes would be an excellent first 
introduction of the computer to children as young 
as three years old. The availability of an easy-to-use, 
hard-to-break cartridge adds further appeal to this 
worthwhile educational game for very young hackers. 

BIG BIRD'S FUNHOUSE 

CBS SOFTWARE 

One Fawcett Place 

Greenwich, CT 06836 

48K Cartridge, Disk or Cassette $34.95 

A trip down Sesame Street to visit Big Bird's 
Funhouse — filled with Muppets — is certain to attract 
a child's attention. This is a game of hide and seek. 
The Muppets are hiding, and Big Bird needs help find- 
ing them. The progression of difficulty through the 
five levels is well designed. The skills practiced and 
refined at each level establish the groundwork for suc- 
ceeding levels. 






Big Bird's Funhouse. 

The first item of business is to place the EasyKey 
Keyboard Overlay over the computer keyboard. This 
flexible vinyl cover makes it simpler for children to 
use the keyboard. The overlay has pictures of the 
Muppet friends, each with its own key to punch. 
Other areas are designated for game-playing functions. 
The package includes a cover for both the 800 and 
the 800XL, because of dissimilar keyboards. 



Neither of these covers works with the Atari 400 
keyboard. There are still a lot of those durable 400s 
out there which, years from now, will be viewed with 
the same wonder as a '55 Chevy. There should have 
been some mention of the 400 keyboard, with at least 
a description of how to construct an overlay. It would 
be fairly simple to create one using construction paper 
and cannibalized parts from one of the vinyl covers. 

The first level of play involves selecting and invit- 
ing three of the eight Muppets to play hide and seek. 
When the Hide key (SPACE BAR) is pressed, the 
Muppets hide. First two of them will reappear, and 
the child must press the key of the missing one. The 
game continues with two missing Muppets and, fi- 
nally, all three characters to find. 

In level two, the child can invite three to eight 
friends. Games at this level progress similarly, from 
one missing Muppet to as many of them as originally 
selected. 

In these first two levels, the windows are closed if 
there is no one in that room. Using this, a child can 
count the number of open windows to remember how 
many Muppets are hiding. The next level is like the 
first two, except the windows are all left open. 

Level four uses the Pop-Up key. When it's pressed, 
three Muppets will pop up in a special order, accom- 
panied by their individual hiding theme. After they 
hide again, the child must select the missing Mup- 
pets in the exact sequence in which they originally 
appeared. The round continues until five of the char- 
acters have been identified in the correct order. Once 
this is achieved, a new set of playmates is generated. 

The final level of play is definitely addicting. Press- 
ing the Pop-Up key results in the appearance of a sin- 
gle Muppet and its musical riff. After it disappears, 
one presses the key of the Muppet seen. Then this 
same Muppet appears, followed by another. This is 
repeated, with the sequence growing by one each 
round. Individual Muppets may make several guest 
appearances in each round. 

Visual and auditory discrimination skills are exten- 
sively involved throughout this program. It might be 
interesting to test these separately by turning off the 
sound or not looking at the screen. The fact that it 
is much easier using both stresses the importance of 
this perceptual coordination. Children will find many 
ways to memorize patterns and figure out the tricks 
that work best for them. Finally, the child's ability 
to place objects in sequence will improve markedly. 

Many favorite Muppets are featured, including: Bert, 
Ernie, Oscar, Cookie Monster and the lovable Snuffle- 
Upagas. The sound and graphic enhancements are 
well done and appropriately geared for the younger 
child. The manual, like all the others, includes a sec- 
tion on additional activities. 

1 almost forgot. When the child succeeds, Big Bird 
skates gleefully in front of the house. Now, that's posi- 
tive reinforcement. D 
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16K Cassette or 24K Disk 



by Mark and Cathy Sloatman 



The story. . .You're a concession worker at the lo- 
cal msjfinee. Since the day is-over, you are busy clean- 
ing under the tables. Then the worst happens! The 
popcorn popper's gone mad! Now, you must clean up 
(catch) all of the popcorn to make the boss happy. 
If you do well, he'll congratulate y^u. If not — you 
^ guessed it — looks like you're firedl 

Iristruction^ 
k After Popcorn! is loaded, you can press START to 
begin in level 1, or press SELECT then START to 
begin in level 5- Levels 1 through 5 are for the little 
ones. The popcorrf*and the \\^m move more slowly, 
so the younger player won't get discouraged. Only 
twenty-five popcorn kernels need to be caught to ad- 
vance to the next level (compared with fifty for higher 
''wevels), and, if the child'filfiishes level 3, a happy boss 
appears. 

T) play Popcorn!, move your little on-screen hand 
to catch the kernels. The amount of points for each 



T' 



piece caught depends on what level you're in. There 
are nineteen levels of difficulty (if^ou finish level 19, 
let me know). ^ 

You start oufwft:h three chances. When you miss 
three kernels, the kass will pull you off the screen 
with his cane, and you'll lose a chance. Remaining 
chances are indicated by the number of pieces of pop- 
corn in:^e upper right sidaof the screen. If you lose 
all your rhances, you'll s^ the boss — and get fired. 

There is good news, however. Making it through 
levels 3,8, 12 or 16 will send you to the boss's office, 
too, but this time hell thank jjpu for a job well done. 

Every 10,000 points earns you another life (up t^ 
five). To pause the game, hit the SPACE BAR. To 
resume play, hit the SPACE BAR again. After the 
game, is over, press START or the trigger button to 
play ag^in. In the middle of a game, yoXi may begin 
X>nce more^Dy pressing START. 

Have some popcor^^ a?id play Popcorn.' □ ^^ 







THE CHALLENGE. 

Over 2000 stimulating trivia/fact questions will send 
you rummaging through your personal memory banks. 
Answer correctly and advance in your quest while 
adding more gold to your treasure. Fad and you lose 
ground. 






:i. if: i :*: X; * W 



THE ACTION. 

You may have to face and battle a ferocious dragon, 
f you prevail, the dragon's cache of gold will be added 
to your treasure. If you fail, your journey will be slowed 
while you heal your wounds. 




THE STRATEGY 

Eacfl questing patly consists of three characters, a 
Knight, Prince and Page. Each has distinctly different 
physical characteristics, and all must complete the 
Quest. You must decide when to send them on to the 
next challenge. 



Atari is a trademark of Atari, Inc. 

©1984— Royal Software 



This 

exciting new 

concept in computer 

entertainment will keep you 

and your friends involved for hours and 

hours. This is probably the best party-game 

ever developed, and new question disks will be available. 

Optional: Utility disk which allows you to create unlimited trivia questions 

and answers for educational or entertainment. The utility disk also includes 

over 1000 additional questions. Utility disk $24.95. 






C^^fA 




"Software fit for a king!" 

2160 W. 11th • Eugene, OR 97402 • (503) 683-5361 

Ask for Trivia Quest at your favorite Atari Computer Store 
or order directly from Royal Software. Use your Master- 
Card, Visa, American Express, or send check or IMoney 
Order Including $2.90 shipping and handling. 
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BASIC listing. 



19 REM ««» POPCORN *** 

26 TRAP 20:? "MftKE C<>S5E1TE C0> , OR DI 

5K C1}";:IIIPUT D5K:IF D5K>1 THEH 20 

30 TRAP 4000e:DATA 0,1,2,3,4,5,6,7,8,9 

,0,0,0,0,0.0,0,10,11,12,13,14,15 

40 DIN I>AT$C91),HEKC22) :FOR X=0 TO 22: 

READ N:HEXCX)=N:HEXT X : LIME=990 : HESTOH 

E 1000: TRAP 120:? "CHECKING DATA" 

58 LINE=LINE+10:? "LINE :";LINE : READ DA 

T$:IF LENCDATSJO90 THEN 220 

60 DATLIH=PEEKC183}+PEEKfl84J»256:IF D 

ATLINOLINE THEH ? "LINE "{LINE;" MI55 

ING!":END 

70 FOR X=l TO 89 5TEP 2 :D1=A5C CDATS CX, 

X3 ) -48 : D2=ASC CDAT5 CX+1 , X+l) J -48 : BYTE=H 

EXCDl>«16+HEXtD2> 

80 IF PAS5=2 THEH PUT «1,BVTE:NEXT X:R 

EAD CHKSUM:G0T0 50 

90 TOTAL=TOTAL+BYTE:IF T0TAL>999 THEN 

T0TAL=T0TAL-1000 

100 NEXT X:READ CHK5UM:IF TOTAL=CHKSUM 

THEN 50 
110 GOTO 220 

120 IF PEEKfl95J<>6 THEN 220 
130 IF PA55=0 THEN 170 
140 IF NOT DSK THEN 160 
150 PUT ttl,224:PUT ttl,2:PUT ttl,225:PUT 

ttl,2:PUT ttl,0:PUT ttl, 32: CLOSE ttl:END 
160 FOR X=l TO 117: PUT ttl, 0: NEXT X:CLO 
5E ttl: END 

170 IF NOT DSK THEN 200 
180 ? "INSERT DISK NITH DOS, PRESS RET 
URN";:DIM IN$(1):INPUT IN$:OPEN ttl, 8,0 
,"D:AUTORUN.SYS" 
190 PUT ttl, 255: PUT ttl, 255: PUT ttl, 0: PUT 

ttl, 32: PUT ttl, 226: PUT ttl, 45: GOTO 210 
200 ? "READY CASSETTE AND PRESS RETURN 
";:0PEN ttl,8,128,"C:":RE5T0RE 230:F0R 
X=l TO 40: READ N:PUT ttl, H: NEXT X 
210 ? :? "HRITING FILE":PASS=2:LINE=99 
0: RESTORE 1000: TRAP 120: GOTO 50 
220 ? "BAD DATA: LINE ";LINE:END 
230 DATA 0,29,216,31,255,31,169,0,141, 
47,2,169,60,141,2,211,169,0, 141 , 231 , 2 , 
133,14,169,56,141,232,2 

240 DATA 133,15,169,0,133,10,169,32,13 
3,11,24,96 

1000 DATA A9818509A9e0850CA92e850DA90E 
8DC5e2A9328DC60220742CA9008D2F02859C8D 
08D28D01D28D03D2A2299580, 441 
1010 DATA CA1OFB2OB7242OE023A9D6858OA9 
OF8581A2O52OA52DA2OOBDAD279D7810E8DOF7 
BDAD289D7811E8E018D0F5A2,285 
1020 DATA 80BDC5289DFF12E8E01BD8F5A217 
BDDF289DD70FCAD0F7204324A9308DF402A9FE 
8D00e2A9298D0ie2A9F78D3e, 22 
1030 DATA 02A9288D3102A9C08D0ED4A93A8D 
2F822OF922A9O1859AA9O285A1A9118DF10FA9 
O385A28D0FD22O3D23AD1FDO, 763 
1040 DATA C906F010C9e5D007859AA9158DFl 
0FAD8402D0E9A91E209D24AD1FD0C906F0F920 
ie2420ED23A988859D8D0AD0,143 
1850 DATA A94e8D0ED4A9018D6F028D09DeA9 
038DlDD8A9e08D07D4202424200424A977859C 
8DlED0A49AB974248593A9e4,844 
1860 DATA A212A8e92eC22CA9e6A214A00920 
C22CADlFD0C9O6D0OAADlFDeC9O6FOF94C0O2e 
ADFC023015A9FF8DFC02A5A4, 956 
1870 DATA 450185A4F0e8ADFC0230FB4C3421 
2e65242e7D2CA599D009AD0AD2C914901BB004 
C699D012A908A001A2122eC2,649 
1880 DATA 2CA9eAA001A21420C22C4CDE21A9 
OCA212Ae0120C22CA90EA214A80128C22CA9ei 
8584A59A0A1869048599A200,749 
1090 DATA BD0006F009E8ESEOOCF03E4C9521 
8e94A59A0A8596A201BDe006F0e4C5969029E8 
E8E0eDF0FlA694A00AA90E20 , 362 
1100 DATA AA24C9ie90e4C91690F19De80685 
84A9eCAe0120AA24E89D000686A3ADe5D0D003 
4CCB228582205D2DA49AC006, 100 
1110 DATA 9002A0052089238D1ED0E69BA49A 
A59BC005B007C919B0874CCB22C93290F9A908 
AO01A2122OC22CA9OAAOeiA2,925 



1120 DATA 1420C22CA9868594A92885932065 

24A9AF8596C694A594F01BA00520e923C696A5 

96C9A09eE28D01D2A90C8DeO , 191 

1130 DATA D22888244C3A22A900859B8D01D2 

A49AC013FO69E69AA49AC004F00CC0e9F608C0 

0DFee4CeilDe3D8C762620B7,493 

1140 DATA 242eCE24A93A8D2F02201024A904 

A212AOO920C22CA9O6A214AeO92OC22CA9OSAO 

01A21220C22CA90AAe01A214,2e2 

1150 DATA 2eC22CA93C209D24AC762eC013F0 

11C00AD00DA9108DF10FA9118DF00F4CC622EE 

F10FB974248593A59FC903B8,432 

1160 DATA 034C1E21205223A980859FC6A2A5 

A2F08D283D23A977859C209D244C1E21A9018D 

D72620CE244C0e20A910A2e0, 486 

1170 DATA 9DDF0FE8E006F8034CFD2268ADE0 

OF8597A2O4BDDF8FC919DOO9A91O9DDF0FCA4C 

1023FEDF0F88D0E8A597CDE0,499 

1180 DATA 0FFO0FA5A2C905Fee9E6A22O3D23 

A9C0859D60A205A98e9DF50FCA10FAA6A2A941 

9DF5eFCAD0FA60A9A8859D20,433 

1190 DATA B724A908A001A21220C22CA9eAA0 

01A21420C22CA914209D24A99F8597A9CF858B 

A227A000208824B9DF269DB8,250 

1200 DATA 1EC68BA58B8D02D0A59C38E92AC6 

97C597B00BC8C0e498E0A80eCA4C7C23E68BBD 

B01EF0174A4A9DB01E208824,911 

1210 DATA E68BA58B8De2D038E906859C4CA4 

23E8E02990DFA59C8596A596859CC9F5B8eE18 

69068D02D0E6962088244CC9 , 849 

1220 DATA 236eA9008580A9048581A2054CA5 

2DBDB32D9DD204BDC22D9DCD05BDD12D9DD7e6 

E8E08FD0E9A207BD1D249DC8,382 

1230 DATA e2CA10F760A9008580A9188581A2 

OF4CA52D3A48OFOO28OEe0A9358D3OO2A9298D 

3102A99F8D0002A9298D8102,124 

1240 DATA A9O12O9D24A9C88DOED46OA20OBD 

0eE09De83eBD00E19De031BD00E29De032E8D0 

EBBD232A9De032E8E0AlD0F5,583 

1250 DATA Ae0OA22OC8C493DOFBAOeOCADOF6 

6000C89678645e4e413C37322D28231E191612 

0D0A9848A90eA81869eiC916 , 953 

1260 DATA F006C8DeFD4C8D2468A8608594A9 

e88514A514C594D0FA608598AD0AD225988498 

18659860A90F85A1207D2CA9,540 

1270 DATA 00AA9D0806E8E0eC90F8A90285Al 

6eA9408D0ED420E023A9008S80A9108581A2e5 

20A52DA230A97E9D9E06CAie,515 

1280 DATA FAA200BDBC2A9De030E8Ee30D0F5 

A200BDEC2A9D0e31E8E098D8F5A9018D6F02A9 

e38DeAD0A9E48DC202A9888D,539 

1290 DATA C502ADD726DOllA9ODAeei2eAA24 

0AOAOAOA1869eESDC6O2A9148D3Oe2A9298D31 

O2A9138DO0e2A92A8DOlO2A9,131 

1300 DATA CO8D8ED4A9eO8594A9108595E695 

18A594695D859490e2E695ADD726D013AD0AD2 

C9e6B0F9AABDD8268DD626A9,180 

1310 DATA 254C8125A9008DD6268DCe02A929 

8DDE26A200A008BD77269194E8C8BD77269194 

1SA594691485949002E695E8,505 

1320 DATA E00ADeE2A280A9019DSClia9e29D 

5F11188A6914AAE064D0EDA9038D49118D4A11 

A9048D4811A9058D4B11A970,163 

1330 DATA 8D02D0289D24A9648D01D28D03D2 

A9188D00D2A9198D02D2A9718596208824A596 

8D02D0C987F00B208824E696,411 

1340 DATA 2e88244CE925A9008D01D28D03D2 

A91E209D24ADD72eD8e4A98AD082A999859DAC 

DE268C5D11C88C5E11C88C71 , 613 

1350 DATA llC88C7211AEDe26A008BD832699 

D011C981Fe05E8C84C3126A9FF209D24A90e8D 

2F02A901209D24A9088D02D0,516 

1360 DATA 8D0AD08DD726A9408D0ED420E023 

20ED2328432420e424202424AE7526AC7626e0 

0000212223246D6EeF707172 , 335 

1370 DATA 8101B9AFB587B2A588A6A9B2A5A4 

818OA7B2A5A1B48OAAAFA281808OB7A1B98OB4 

AF80A7AF81Se8080B7AFB7A5 , 155 

1380 DATA A5818088A6A1AEB4A1B3B4A9A381 

ACA9ABAS8C88A1B7A5B3AFADA5818880A7AFAF 

A480B7AFB2AB8100ee0D1924,617 

1390 DATA 2E3947000ie5155579e46084A204 

9OO2SO0279e46Oe4A2O498O28OO2798468O479 

04e0046C048004A204908280,371 

1400 DATA 027904e004A2049082800279e460 

04A2O49ee28OO279O460O46CO4eOO479O8A2e4 

8004D904C102AD02A2048004,460 



Until now, there was no reason to buy another DOS for \;our Atari® Computer 
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Introducing SpartaDOS™ $39.95 

a resident DOS that supports all drives, all densities, 5V4 and 8 inch, single or double sided, time/date stamping 
of all files, unlimited multiple directories, user created batch files, automatic (intelligent) format selection, works 
with all Atari compatible drives including the ATR8000® . 



. . .Finalli;, true double densiti; for the Atari 1050 and it's affordable! 
Introducing the US Doubler™ . . . $69.95 

turns your Atari 1050 into the drive Atari should have made. Fully compatible with all existing software. When 
used with included SpartaDOS, UltraSpeed™ I/O reads and writes an' amazing 3 times faster than your present 
1050 - plus in single density, density and one-half (Atari double), and true double density! Installation required. 



other fine products from ICD include: The Chip with Archiver I™ . . $99.95, Happy Archiver™ . . $39.95, and 
coming soon Archiver IV^. 

ICD, Inc. 

828 Green Meadow Avenue 

Rockford, IL 61107 

(815) 229-2999 (l-9pm CST) 

order direct or call for the dealer or distributor nearest you. 

SpartaDOS. US Doubter, UltraSpeed, the Chip, Archiver 1 and Archiver !i are trademarks of ICD, Inc. Atari is a registered trademark of Atari Corporation. ATRSOOOis a registered trademark of SWP Inc 



Distributors now in: 
United Kingdom and Canada 
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1410 DATA D904C102AD82A204S0e4A20480e4 

9e84AD04D9e4Cie2AI>02A20480e4D?04C102AD 

e2A2e48e04D984C182ADe2A2 , 583 

1428 DATA 848884900488e4A28888883C8235 

822F843C84358448843CeS885182518651886C 

84e8867918F31088F388D984,855 

1430 DATA CC8CD98CF382FF82F382FF82F388 

D984F3888888218225e2218225828888e08841 

414141084141414180414141,898 

1448 DATA 4180414141418841414141804141 

41410041000041004188808880410000410841 

800041004100004100410000 , 385 

1450 DATA 0000410000410041000041084100 

00410041000000004100004100410000410041 

000041004100000000418888,368 

1468 DATA 4188418088418041888841884188 

88000841414141884188884188414141418841 

888808884188884180414141,798 

1478 DATA 8888414188418041000000004100 

00000041000041804100000000410000000041 

080041004100004100410041 , 765 

1480 DATA 4100410000800041000000004100 

00410041000000004100008888418800410041 

000041004100004100000000 , 610 

1490 DATA 0000410000000041414141004100 

00000841414141004141414100410000410041 

0e00410e4100002279002D61, 142 

1500 DATA 72eB806ieE64e823ei746879ee33 

6C6F61746D616E0033232F32258e0ee888e88e 

888e00000eee882C2536252C, 378 

1518 DATA 7878428818828282828202020202 

02e2e282828282828282020241F7287e787046 

001006060606060606060606 , 688 

1528 DATA 8686868686868686860686868670 

4114297078C2D68F4D8ei08D8DeD8D8D8D8D8D 

eD8D0D0D0D0D0D0D0D0D8D0D , 132 

1530 DATA 0D0DOD0DODODODOD8D8D0D0D0DOD 

ODODODODODODODODODODODODODODODODODODOD 

0D0D0DeD0D0D0DeD0D0D0D0D,717 

1540 DATA ODODODODODODODODODODODODODeD 

0D0DeD0D0D0D0D8D0D0D0D0D8D8D8D8D413529 

48A9DA8D8AD48D18D8A9B48D , 335 

1558 DATA 8882A9298D8182684848A9E48D8A 

D48D13D8ADC2828D16D8A9CF8D8e82A9298D81 

82e84848A98A8D8AD48D12D8,821 

1568 DATA A9848D1BD8A9E98D8882A9298D81 

82e84848A9C88DeAD48DlAD0A99F8D0e02A929 

8D8ie2684048A9E08D8AD48D, 578 

1570 DATA 09D4A90A8D17D0A9008D18D86848 

48A9E88D8AD48De9D4A9088DlAD0e848888888 

888888888868F6FF7F3E7878 , 996 

1588 DATA 8888888838EFEF2A8A2E2F8A8888 

28AEFAE8C888888088AAAAAAAAAA55e00e00AA 

282888AA55888888AAAAAAAA , 821 

1598 DATA AA55800000000e0e000000000000 

08000000000055000000000088082855888880 

888808008855888888088888, 371 

1688 DATA 8888888888558088088888888828 

55888888888888088855888880000000000000 

000088800000000000000000,666 

1610 DATA 00000000F7F7F7007F7F7F38F8F8 

F8387878781C1F1F1F1C1F1F1FFFFF88888888 

88887FFFFCFC78787878FEFF,631 

1620 DATA 3F3FlFlFlFlF0e00OOOO0O0OQ000 

00070F193F3D7D7FOOEOF098FCBCBEFE3F3C1F 

8F87838388FC3CF8FeE8CeC8,394 

1630 DATA 0000070D1B373D7D7F00E0B0D8EC 

BCBEFE3B3ClF8Fe70303881>C3CF8F8E8C8C888 

88078FlB3D3E7D7D8eE8F8D8,949 

1648 DATA BC7CBEBE3F3ClB8F87e38300FC3C 

D8FeEOC0C00O3F7F7F6F6F6F6F6FFCFEFEF6F6 

F6F6F66eeFeF6E6E0EeEeE0e, 547 

1650 DATA F6F076767070700E0E0E0E8E8E1E 

3E787878787070787C8E898A8D86118215D8A5 

8FFe05C68F4CC62BA5984981,lll 

1668 DATA 8598DeiBA69DBDE326F8218D84D2 

A9AA8D85D2E8BDE326858FE8869D4CCe2BA988 

8D05D2A69DCABDE326858FAD,478 

1678 DATA 7882C987F819C98BD02BA59CC932 

9021A49AC0059002C69CC69CC69C4CF82BA59C 

C9C3B0eCA49AC0059e02E69C,327 

1680 DATA E69CE69CA900854DA59C8D81D018 

69e58Dee0eA584F02BEe8EA58EC902D023A68D 

BD842B8De3D2ESBD842B8De2,181 

1698 DATA D2A988858EE8S68DE0e8D889A988 

8D83D2858D8584A582F837E685A585C981D82F 

A583D0e4A9F0858CA9AA8D81,152 



1788 DATA D2A58C8D88D2F8eF38E928858CA9 

888585A9818583D08CA9Fe858CA90885828583 

85854C62E4A987A22BA88C4C , 767 

1710 DATA 5CE4A9888592A692BD88eeD809E8 

E88692E88C98F168BD88868586E8BDe886859E 

C9ei988ECAA9889D8886E89D,279 

1728 DATA 8886E69FD883FE8886E88692A5A1 

858728C82CA692E88C98C0608587849E8686A9 

81858AA93285A8A58ADe84E6,39 

1738 DATA 8eE687A988858985A885A68595A5 

9EeA2e950A2e950A2695A69586A685A50A2695 

0A26951865A585A5A595e5A6 , 241 

1740 DATA 85A6A5A518658685A59082E6A618 

A5A5e98e85A5A91865A685A6A9888595A5878A 

26898A26898A26891S658785, 176 

1750 DATA A7A58965A885A8A4A0BlA7Ae0091 

A5A5A518692885A59e02E6A6E6A0A5A8C909D0 

E5C68AA58AC9FFF8834CD82C,720 

1760 DATA 60A59C38E9244A4A38E9848591A8 

88A2eeBD8886Fe84C591F818E8E8Ee8CD8FlE6 

91C8A288C006D0E868E8BD88, 581 

1778 DATA 86CAC94E98E7859EBD88868586A9 

8F8587A9ee9D8e869D81864CC82CA880989188 

C8D0FBE681CAD0F660287eF0 , 203 

1788 DATA F2F2FE7E3E8FeFeF8F8F8F8FFFFF 

FF7E7E7E7E7E7E7E88888888000078F888888e 

880888888888808880888000, 505 

1790 REH « 3555 BYTE5 



CHECKSUM DATA. 

(see page 10) 

10 DATA 942,351,496,811,423,729,208,68 

3,555,573,694,613,29,205,214,7438 

168 DATA 145,198,962,633,491,38,155,11 

6,169,732,978,213,858,980,814,7466 

1868 DATA 882,705,576,947,748,766,671, 

763,513,975,716,378,96,768,982,18462 

1218 DATA 31,185,613,89,595,879,794,11 

5 , 703 , 73 , 759 , 845 ,643,925,743, 7912 

1368 DATA 461,993,111,4,96,527,33,169, 

555,458,538,467,437,685,88,5542 

1510 DATA 762,547,124,117,696,854,724, 

798 , 486 , 403 , 128 , 888 , 95 , 541 , 866 , 7949 

1660 DATA 260,967,160,923,982,793,964, 

588,692,74,883,848,684,663,9473 



Assembly language listing. 



1 r 




POPCORN! 1 


1 1 Mar 


k an 


d Cathy Sloatfflan 1 




ftNALOB Computing i 


1 SYSTEM 


EQUATES 


BOOT 




• B9 


DOSINI 




*0C 


ATRftCT 




»4D 


VDBL8T 




*0200 


DMA 




»a22F 


BDLSTL 




«ei230 


BPRIOR 




«026F 


STICKB 




»0278 


STRIB 




«CI2B4 


PCOLR0 




•02c:e 


PC0LB2 




• ()2C2 


CQLORl 




»B2C5 


CQL0R2 




• 02C6 


CHSET 




»B2FA 


CH 




• a2FC 


HPOSP0 




»Deee 


HPDSPl 




«D001 


HP0SP2 




• D002 


PIPF 




*D005 


SIZEPl 




>D009 


SIZEP2 




• D00A 


CDLPMB 




• D012 


COLPMl 




»D013 


COLPF0 




• D01& 


CDLPFl 




»D017 


CDLPF2 




»D01B 


COLBK 




• D01A 


PRIOR 




*D01B 


BRACTU 




»D01D 


HITCLR 




*D01E 


CONSOU 




»D01F 


AUDFl 




• D200 


AUDCl 




• D201 


AUDF2 




• D202 


AU0C2 




• D203 



AUDF3 




«D2e4 




AUDC3 




«D2ea 




AUDCTL 




«D2«8 




RAND 




*D2eA 




SKCTL 




*D2«F 




PnSASE 




»D4B7 




CHBASe 




(0409 




W8YNC 




• D4aA 




NMtEN 




• D40E 




CHORB 




• £000 




XITVBW 




• E4&2 




BETVBV 




*E4SC 




IP/n AND 


SCRN MEMORY 


U8E 


CHARORG 




• 3000 




CHARaR62 




CHARORG+»0100 


CHAR0RB3 




CHARORG+«0200 


SCRN 




*1000 




BCORELN 




SCRN-«2A 


CANESCRN 




SCRN+»eEB0 


SHDNLEV 




SC0RELN+»1B 


SHDWLIFE 




SHOWLEV-l'«04 


1 

PM 




• 00 




PHB 




PM+1234 




PHI 




PM+14GS 




pn2 




PM+17S1 




POSITION 




• 0&00 




IZERO PASE VARIABLES 




1 


»- 


• 80 




CLR 


»K 


• + 2 




CftTCHSND 


*- 


♦ + 1 




CATCHSNDl •- 


»+l 




SNDFLABPOP • 


- »+l 




SNDDELAY 


»- 


♦ +1 




HORIZ 


*> 


• +1 




CHR 


»- 


»+l 




CHAROFS 


»a 


»+2 




CHECK 


*ai 


♦ +l 




HPOSCANE 


»- 


• +1 




FREO 


«a 


»+l 




XFLA8P0P 


»■ 


»+l 




DELftVPDP 


»- 


• +1 




LENBTH 


«> 


»+l 




SNSFLAS 


*>■ 


• ♦1 




HPOSl 


*m 


♦ +1 




XRES 


*- 


• +l 




SETDELAY 


*- 


• +l 




TEMP 


*a> 


» + 2 




TEMPI 


• > 


♦ +1 




TEMP2 


»- 


»+l 




TEMPA 


»> 


»+l 




TIMER 


• « 


• + 1 




LEVEL 


»■ 


»+l 




NUMBER 


*a 


»+l 




HPOS 


*m 


»+l 




SONSXREB 


»- 


• +1 




VERT 


»- 


♦ +1 




Miaspop 


*■ 


♦ +1 




PLUS 


*- 


»+l 




LOADCHAR 


*» 


»+l 




LIVES 


♦ - 


• +1 




LASTPOP 


*> 


• + 1 




PAUSEON 


*- 


»+l 




OFFSET 


«> 


» + 2 




CHAR 


#» 


»+2 




IINITALIZE GAME 
1 




t 


*m 


•2000 


IRUN ADDRESS 


START 


LDA 


«1 


I TELL SYSTEM 




STA 


BOOT 


IDSK BOOT OCCURED 



PUTPDPl 



LDA 
BTA 
LDA 
STA 
LDX 
JSR 
LDX 
LDA 
STA 
INX 
BNE 
LDA 
BTA 
INX 
CPX 
BNE 
LDX 
LDA 
STA 
INX 
CPX 
BNE 
LDX 
LDA 
BTA 
DEX 
BNE 
JSR 
LDA 
BTA 
LDA 
BTA 
LDA 
BTA 
LDA 
BTA 
LDA 
STA 
LDA 
BTA 
LDA 
STA 
JSR 
LDA 
BTA 
LDA 
BTA 
LDA 
STA 
LDA 
STA 
STA 
JSR 



» <SCORELN I LOW BYTE 
CLR 

» >BCORELN IHIBH BYTE 
CLR+1 

•S IS PASES 
CLR0 I CLR IT! 
*0 

POPCDRNSCRN. X IPUTPOP 
SCRN+^78,X I AND PUTPOPl 
(PUTS "POPCORN" 
PUTPOP 1 TITLE 
POPCORNSCRN+»0100,X 
SCRN->'*017S,X ION SCRN 

*24 

PUTPOPl 
#0 

ME88ASE.X ISIVES 
SCRN+»02FF,X I CATHY 
I AND I 

• 27 I THE 8L0RY! 
PUTCREDS 

•23 

MESSAGEl.X I PUTS "SCORE' 

aCORELN+I.X lAND "LEVEL" 

ION SCRN 
PUTSCORE I NOT DONE 
PUTCHAR IREDEFINES CHAR. SET 

• >CHARDRB I TELL ANTIC 
CHSET INHERE NEW CHAR. SET 

• <DLI I STORE LOW 
VDSL8T I AND HIGH 

• >DLI I BYTES OF DISPLAY 
VDSLST+1 ILIST INTERRUPT 

• <COVER I DISPLAY LIST 
SDLSTL I OF TITLE SCRN 

• >CQVER 
SDL8TL+1 

• 1?2 I ENABLE DISPLAY 
NMIEN I AND VB INTERRUPTS 
•SB I TURN SCRN 

DMA I BACK ON 

SETSCORE I PUT ZEROS IN SCORE 

•1 I8TART AT 

LEVEL I LEVEL ONE 

• 2 I FALLING POPCORN 
LOADCHAR I CHRS 

• 17 I INTERNAL CODE 
SHOHLEV IFOR "0" 

•3 13 LIVES 

LIVES 

SKCTL I INIT SOUND 

SHOMLIVES I PUT LIVES ON SCRN 



■ACTUAL 

I 

BAME 



ERT 



LDA •& 

LDX ^20 

LDY •? 

JSR PRINTCHR IDITTO 

SAME LOOP 



INOU THE RIGHT 
I SIDE 



I 

RRt 



CHKPAU8E 
CONT 



LDA CONSOL 

CMP •<> 

BNE RRl 

LDA CONSOL 

CMP »b 

BEB ERT 

JMP START 



I START KEYPRESSED7 

■ NO 

I YES. NOW 

lUAIT FOR 

■RELEASE 

■GOTO TITLE PA8E 



m 
u 



LDA 
BMI 
LDA 
BTA 
LDA 
EOR 
BTA 
BEQ 
LDA 
BMI 
JMP 
JSR 
JSR 
LDA 
BNE 
LDA 
CMP 
BCC 
BCS 
DEC 
BNE 



CH (SPACE BAR PRESSED? 
CONT I NOPE! 
• 2SS I YES , LETS PAUSE 
CH I CLR KEYBOARD 
PAUSEON IGET FLAG 

AND SmCH IT 



• 01 

PAUSEON 
CONT I 
CH I 
CHKPAUSE 
PAUSEIN8 
DELAY I 
CHARPOLL 
TIMER I 
MWa I 
RAND I 

• 20 

AA I 
MMA I 
TIMER 
0UT4 



IF ZERO THEN CONT. 

PAUSE UNTIL 

I TOUCHED A8AIN 

CONT. WITH SAME 

■MOVE POPCORN 

LENGTH OF LID OPEN 

STILL COUNTING DOWN 

MAYBE LETS POP SOME POPCORN 

<20 
>"'20 



■PRINT LID DOWN 

I 

HMA 



ISTILL NOT READY TO POP 
LEFT SIDE 



LDA (B I CHR VALUE 

LDY #1 lY POSISTION 

LDX (IS ■X POSITION 

JSR PRINTCHR I PRINT 

LDA me ■RISHT SIDE 

LDY •I 

LDX ^20 

JBR PRINTCHR I PRINT 

JMP OUTi 



■ALL SET, 
WAIT 



DFD 

INIT 

INITl 



WANT TO PLAY A BAME7 



CONSOL 

• 6 
INIT 

• 5 
DFD 
LEVEL 

• 21 
SHOWLEV I 
STRIB I 
WAIT I 
•30 I 
LONSPAUSE 
CONSOL I 
»t> I 
INITl I 



START KEY 

PRESSED? 

YES! 

NO-HOW ABOUT SELECT? 

NO, CHECK TRISGER 

YES. START AT 

LEVEL 5 

SHOW IT! 

TRIB8ER PRESSED? 

NO DO IT AGAIN 

DEBOUNCE 



START KEY RELEASED? 
NO! 



IFOR CASSETTE USERS 



LDA • <START ■NOW, HAVE 

STA DOSINI ■SYSTEM RESET 

LDA • >START I START THE 

STA DOSINI+1 IGAME OVER! 

LDA *14 ISET UP COVER 

STA COLORl I COLORS 

LDA •50 

BTA C0L0R2 

JSR INITVBLANK I TURN ON VBI 

LDA »» 

ICLEANER SWITCHINB 
■PLAYERS OFF SCRN 
■TURN OFF SOUND 



BTA DMA 
BTA HPOS 
STA AUDCTL 
STA ftUDCl 
STA AUDC2 
LDX ^41 
STA •8B,X 
DEX 



■41 BYTES TO CLR 
■ CLR 

■ZERO PASE 
BPL CLRZERO ■VARIABLES 
JSR ERA8EP0PCDRN ■CLR SCRN 
JSR CLRPM ■CLR PM BRAPHICS 



■CLR TITLE PAGE 
■ 



LDA 
CMP 
SES 
CMP 
BNE 
STA 
LDA 
STA 
LDA 
BNE 
LDA 
JSR 
LDA 
CMP 
BEB 



ISET UP GAME 

I 

JSR 
JSR 
LDA 
BTA 
STA 
LDA 
STA 
LDA 
BTA 
STA 
LDA 
BTA 
LDA 
BTA 
JSR 
JSR 
LDA 
BTA 
BTA 
LDY 
LDA 
BTA 



■PRINT POT (BODY-LEFT SIDE) 

I 

LDA ^4 I CHR VALUE 
LDX •IS IX POSITION 
LDY •? lY POSITION 
JBR PRINTCHR I PRINT IT! 



CLRSCRN 

WRITEPM I WRITE PLAYERS 

•136 ISHUT OFF 

SONSXREG I SONS 

SIZEP2 

■DISABLE DLI'S 



• &4 
NMIEN 

• 1 

GPRIOR 
SIZEPl 

• 3 
BRACTL 

• >PM 
PMBASE 
SETDL 



■PRIORITY 



■ENABLE PM 

■GRAPHICS 

■GET PM ADDRESS 

■AND TELL ANTIC 

ISET UP GAME DLI'S 

WRITECDLORS ISET UP COLORS 

• 119 I CENTER OF SCRN 

HPOS 

HITCLR ICLR COLLISIONS 

LEVEL I BET LEVEL 

DELAYTABLE.Y AND DELAY NO. 

SETDELAY ■ AeW SPEED OF SAME 



■PRINT 


LID UP - RISHT SIDE 


AA 


LDA 


• 12 


■CHAR. VALUE 




LDX 


• 18 


IX POS. 




LDY 


• 1 


lY POS. 




JSR 


PRINTCHR 




LDA 


• 14 


■LEFT SIDE 




LDX 


• 20 






LDY 


• 1 






JSR 


PRINTCHR 




LDA 


• 1 


IMAKE A VB 




BTA 


SNDFLABPOP 1 "POP" SOUND 




LDA 


LEVEL 


■RESETS TIMER 




ASL 


A 


■SO THAT LID 




CLC 




■POPPING DOESN'T 




ADC 


• 4 


■INCREASE TOO 




STA 


TIMER 


IMUCH IN SPEED 




LDX 


• 




CKCHAR 


LDA 


POSITION. X lANY POPCORNS NEEDED? 




BEQ 


NN4 


I YES 




INX 




INOT YET 




INX 








CPX 


• 12 


■DONE CHECKING 




BEQ 


OUT& 


■YES, NONE NEEDED 


1 
NN4 


JMP 


CKCHAR 


■NO, CHECK AGAIN 


8TX 


TEMP 


■SAVE X RE8 




LDA 


LEVEL 


■GET LEVEL 




ASL 


A 


■MULT. BY 2 




BTA 


TEMPI 


■STORE IT 




LDX 


• 1 


■SET POSITION 


NNX 


LDA 


POSITION. X 




BEB 


NEXTONE 


(SKIP CHECK 




CMP 


TEMPI 


1LEVEL»2 




BCC 


0UT6 


1<LEVEL«2, DON'T POP 


NEXTONE 


INX 




■CHECK ALt 




INX 




■OTHER POPCORN 




CPX 


• 13 


■DONE? 




BEQ 


NNX 


■ YES! 




LDX 


TEMP 


INO. POP SOME 


NNS 


LDY 


• 10 






LDA 


• 14 






JSR 


RANDOM 


|RND(0>»14+10 




CMP 


• 1& 


■ MAKES SURE 




BCC 


NNZ 


■POP DOESN'T 




CMP 


• 22 


■GET WIPED OUT 




BCC 


NNS 


■TRY ABAIN 


NNZ 


STA 


POSITION.X IHORIZ. POS. 
BNDFLAGPOP ■"POP" SOUND 




BTA 




LDA 


• 12 






LDY 


• 1 






JSR 


RANDOM 


IRND(0)*12'M 




INX 







> 

> 

I— 
O 

o 

o 
o 

c 

H 
Z 

o 



CO 
CO 

c 
m 

ro 
en 



nnx 
I 

FFFF 



I PR I NT 
I 



BTft 
STX 
LDA 
BNE 
OMP 

STA 
JSR 
LDY 
CPY 
BCC 
LDY 
JSR 
STA 
INC 
LDY 
LDA 
CPY 
BCS 
CMP 
BCS 

anp 



POSITION,* lUERT. POS. 
LftSTPOP (SAVE LAST POPCORN 
PIPF IPOPCORN CAUSHT7 
NNe lYES! 
NNS I NOPE. 



CATCHSND 
ERASECHR 
LEVEL I 

• & I 
XXXX I 

• 5 I 
INCSCORE 
HITCLR I 
NUMBER 
LEVEL 
NUMBER 
»5 

FFFF 
»2S 
8BBS 
NN3 



I MAKE SOUND (VB) 

I ERASE POPCORN 

BET LEVEL 

b OR HISHER7 

NO 

YES,POINTB-SB 

IP01NT8-LEVEL»1B 

CLR COLL. 

NUMBER OF CAUBHT CORN 

LEVEL 

BET NO. CAUBHT 

LEVEL S OR HIBHER7 

YES 

NO ,25 CAU8HT7 

YES! (NEXT LEVEL) 

A LONB WAY TO SO 



CMP »50 
BCC MMX 



I5B CAUBHT7(NEXT LEVEL) 
I NO 



LID TO SCRN-DOWN 



I 

Q81 



LDA 
LDY 
LDX 
JSR 
LDA 
LDY 
LDX 
JSR 
LDA 
STA 
LDA 
BTA 
JSR 
LDA 
BTA 
DEC 
LDA 
BEO 
LDY 
JSR 
DEC 
LDA 
CMP 
BCC 
STA 
LDA 
STA 
JSR 
JMP 

LDA 
BTA 
STA 
LDY 
CPY 
BED 
INC 
LDY 
CPY 
BEQ 
CPY 
BEO 
CPY 
BEO 
CPY 
BNE 
INB STY 
JSR 
JSR 
LDA 
BTA 
JSR 



*B 

*1 

»18 

PRINTCHR 

• le 

»1 

«2e 

PRINTCHR 

TEMP 

• 40 
SETDELAY 
DELAY 

• 175 
TEMPI 
TEMP 
TEMP 
861 

• S 

INCSCORE 
TEMPI 
TEMPI 

• 160 
BONUS 
AUDCl 

• 12 
AUDFl 
PAUSE 
BELL 

• 

NUMBER 
AUDCl 
LEVEL 

• 19 



ILID DOWN 
lY POS 
I X POS 

1 2ND HALF OF LID 
I SAME AS ABOVE 



I TEMPORARY 

I SLOW IT DOWN 

I BONUS BIVES 
1250 POINTS 
1 IN 5 STEPS AND 
■SOUNDS BELL 
I EACH TIME 

150 POINTS 

I ADDED EACH TIME 
IRINS BELL 



I MAKE BELL SOUND 
■FREQUENCY 



■PAUSE A LITTLE 
■NEXT SOUND 



IT 



■0 POPCORNS 

■NO SOUND 

■8ET LEVEL 

■ IF 19 THEN DON'T 
CHANQELEV IINCREASE 
LEVEL ■NEXT LEVEL 
LEVEL 
•4 ■LEVEL 37 
BREETINB ■SEE THE BOBS 
•9 (LEVEL 8 
BREETINB I SEE THE BOSS 
•13 (LEVEL 12 
BREETINB ■SEE THE BOSS 
•17 I8UESS! 
NOBOBS 

TEMPYREB SAVE Y REB 
ERA8EP0PC0RN ■CLR SCRN 
SEEBOSB ■SET CONBRATULATED ! 
• 58 I TURN SCRN ON 
DMA 
CLR8CRN 



■PRINT POT BODY 



LDA •4 ■CHAR VALUE 

LDX •IB >X POS 

LDY %9 >Y POS 

JSR PRINTCHR ■PRINT IT! 

LDA •& I SAME AS ABOVE, 

LDX ^20 lONLY RIBHT 

LDY »9 I SIDE OF POT 

JSR PRINTCHR ■DITTO! 



■PRINT LID DOWN 



LEFT SIDE 



LDA »B ICHR VALUE 

LDY (Dl IY POSISTION 

LDX »1B IX POSITION 
JSR PRINTCHR IPRINT 
LDA »10 ■RI8HT SIDE 
LDY •I 
LDX »2e 

JSR PRINTCHR IPRINT 
LDA •60 



JSR 
LDY 

NOBOSS CPY 
BEQ 
CPY 
BNE 
LDA 
STA 
LDA 
BTA 
JMP 

I 

DS INC 

CHANSELEV LDA 
STA 

NNS LDA 
CMP 
BCS 
JMP 

TTl JSR 
LDA 
STA 
DEC 
LDA 
BEQ 
JSR 
LDA 
STA 
JSR 
JMP 



I 

TT2 



LDA 
STA 
JSR 
JMP 



LONBPAUSE (PAUSE ONE SEC 

TEMPYREB 

•19 ILEVEL 197 

DS ■YES. NO MORE TESTS 

•10 ^107 

DS (NO 

•16 (YES, NEED TO 

8H0ULEV (CHANSE 2ND DIBIT 

•17 ITO AND 

BHOWLEV-l (PUT 1 IN FIRST 

CHANBELEV 

SHOWLEV ■ INCREASE LEVEL SHOWN 

DELAYTABLE.V (SET NEW SPEED 
SETDELAY ■OF SAME 
MISSPOP 1 MISSED THREE 
•3 IPOPCORN 
TTl I YEP. UH-OH! 
SAME ■NO 80 ON PLAVINB 
LOSECHANCE ■SET PULLED OFF SCRN 
•0 ■RESET HOW MANY 
MISSPOP (POPCORN MISSED 
LIVES (ONE LESS CHANCE 
LIVES (ANY LIVES LEFT7 
TT2 (NO! 
SHOMLIVES I SHOW THEM 
•119 (CENTER HAND 
HPOS 

LONBPAUSE (PAUSE 
SAME (PLAY SAME 

•1 (TELL SEEB08S 
BOSSFLAB (THAT YOU LOST 
SEEBOSB (SE HIM! 
START [START SAME OVER 



JSR PRINTCHR 

LDA ^20 

JSR LONBPAUSE [PAUSE A LITTLE 

LDA »159 (159 PIXELS 

STA TEMP2 (STORE 

LDA »207 (PLAYER STARTING 

BTA HPOSCANE (POSITION 

LDX ^39 (40 BYTES 

LDY me 

PUSHCANE JSR PAUSE (SLOW IT DOWN 

LDA VALUE, Y (VALUES FOR CANE 

BTA CANESCRN.X [POKE SCRN 

DEC HPOSCANE 

LDA HPOSCANE I MOVE 

BTA HP0SP2 [PLAYER 

LDA HPOS 

SEC 

SBC tt42 
DEC TEMP2 
CMP TEMP2 



CO 
CO 

c 
m 



(BET HAND POS. 



BCS FULLBACK (YES! 



(SUBTRACT 42 
(AT LOCATION 
(OF MAN YET7 



(BAME ROUTINES 

( 

SETSCDRE LDA ^16 

LDX »e 
2SC0RE 



(ZEROS SCORE 



liERO'S 

■ IN SCORELN 



IN NEXT POS. 



STA SC0RELN*9,X (PUT SIX 

INX 

CPX •& 

BEQ 8BB 

JMP ZSCORE 
I 

sea RTS (ALL DONE 

[ 

[INCREASES SCORE 
[ 
INCSCORE LDA SCORELN+10 (GET 

STA TEMP2 I 10000 AND STORE IT 
INCSCQRl LDX »4 (5 POS. 
LL LDA SC0RELN't^9,X (SET NO. 

CMP ^25 (FOR EACH POS. 

BNE FF (AND CHECK FOR 9 

LDA «16 (ZERO NUMBER 

STA SC0RELN+9,X 

DEX (NEXT POSITION 

JMP LL (ASAIN 



( 

FF 



■ GAIN 
I 



INC BCORELN+9. X (ADD 1 

DEY (POINTS ADDED? 

BNE INCSCORl (NO! 

LDA TEMP2 [PASSED 10000 

CMP SCORELN+10 [POINTS? 

BEB QH (NOPE. RETURN 

A ANOTHER CHANCE! 

LDA LIVES [GET LIVES 

CMP ^5 IS YET7 

BEQ QU [YES. NO MORE 

INC LIVES [SAIN A LIFE 

JSR SHOMLIVES [SHOW IT 

LDA ^192 [TELL PLAYER 

STA SONBXREB [BY PLAYING SONS 

RTS 



QW 
I 

SHOWLIVES LDX »S 
LDA »e 



(5 POSITIONS 



I 



STA SHOWLIFE,X I CLR 

DEX (LIFES OUT FIRST 

BPL CLRLIFE 

LDX LIVES (BET LIVES 

LDA •&& ■POPCORN CHAR. 

STA SHOWLIFE.X ■SHOW THEM 

DEX 

BNE NST ■DONE? 

RTS ■YES 



(UH-OH! YOU BLEW IT! 

LOSECHANCE LDA tlAB (PLAY DEFEAT 
STA S0N6XRE8 [ SONB 
JSR ERASEPOPCORN (CLR SCRN 
LDA »a (LID DOWN 

LDY •! 
LDX •IB 
JSR PRINTCHR 

LDA ^10 (2ND HALF QF LID 
LDY •I 
LDX ^20 



INY 


(NO. DONE WITH 


CPY 


•4 (BYTE? 


BCC 


PUSHCANE (NO! 


LDY 


•0 [NEXT BYTE 


DEX 




JMP 


PUSHCANE [PUSH CANE 



■ 

FULLBACK INC HPOSCANE ■MOVE HOOK 
PULLINB LDA CANESCRN.X 

BEQ OFF IIP DONE SHIFTIN8 

LSR A (MOVE CANE ONE POS. 

LSR A 

STA CANESCRN,X ■PUT ON SCRN 

JSR PAUSE 

INC HPOSCANE 

LDA HPOSCANE 

STA HP0SP2 IMOVE HOOK 

SEC 

SBC •& ■THEN MOVE 

STA HPOS ■HAND 

JMP PULLING 



(40 BYTES PER SCRN 
(NOT DONE YET 
(SAVE HAND POS 

[NOW WE 

(NEED TO 

[ PULL HAND V HOOK 

[ OFF OF SCRN 



OFF 


INX 






CPX 


• 41 




BCC 


PULLING 




LDA 


HPOS 




STA 


TEMPI 


OFFSCRN 


LDA 


TEMPI 




STA 


HPOS 




CMP 


• 245 




BCS 


ER 




CLC 






ADC 


• 6 




STA 


HP0SP2 




INC 


TEMPI 




JSR 


PAUSE 




JMP 


OFFSCRN 



[HOOK HORIZ POS 



I 

ER RTS 

I 

[CLR PLAYER MEMORY 

{ 

CLRPM LDA • <PM'M024 I LOW 

LDA • >PM+1024 ■HIGH 
BTA CLR+1 ■BYTES 
LDX •S ■S PASES 
JMP CLR0 ■CLR THEM! 

■ 

■PUT PLAYERS INTO MEMORY 

■ 

WRITEPM LDA PMDATA0,X IBET 
STA PM0,X ■PLAYER 
LDA PMDATA1,X [DATA 
STA PMl,X [AND PUT 
LDA PMdAtA2,X (INTO P/M 



o 

Q 

O 
O 

TJ 

C 



Q 



[ 



STA PM2, 
INX 

CPX •IS 
BNE WRITEPM 



[MEMORY 
[ IS BYTES 



I SET UP 



[FILL COLOR REGS. 

I 

WRITECOLORS LDX •? 

COLORS LDA COLORTABLE.X 

BTA PCOLRa,X (COLORS 

DEX 

BPL COLORS 

RTS 
[ 

[CLR BAME SCRN 
[ 
CLRSCRN LDA • <SCRN 

STA CLR ( 

LDA • >SCRN (CLR 

BTA CLR+1 

LDX WIS 

JMP CLR0 
[ 

COLORTABLE .BYTE 58 , 72 , 15, , 40 , 14, « 
[ 

[SET UP DL AND DLI'S 
[ 



[SCRN FOR PLAY 



i 

m 

u 
u 



SETDL LDA » <DLIST I TSLU ANTIC 

STft SDLSTL (WHERE DISPLAY 

LDA » >DLIST ILIST IS 

STA SDLSTL-H 

LDA « <DLI1 lAND WHERE 

STA VDSLST (DISPLAY LIST 

LDA * >DLU I INTERRUPT IB 

STA VOSLST+l 

LDA »l I l/iB OF A SEC. 

JSR LDNQPAUSE iWftIT UNTIL 

LDA »192 INEXT VB I TO 

STA NMIEN [ENABLE DL I 

RTS 
1 

I LOAD REDEFINED CHR SET 
I 

PUTCHAR LDX *e 

PUTCHARl LDA CHORE, X (LOAD 

STA CHARORS.X I CHR 

LDA CHOR8 + >ei00, X I DATA AND PUT 

STA CHARDRG2,X (INTO 

LDA CHORat-teiza.t iredefined 

STA CHARDRG3,X I CHR SET 

INX 

BNE PUTCHARl 
REDEFINE LDA CHARDATA.X ) NOW 

STA CHARaRQ3,X I CHANBE 

INX iCHRS TO 

CPX Cl&l lUHAT WE WANT 

BNE REDEFINE 
I 
I 
DELAY LDY •« 

LDX #32 ISLISHT DELAY 
DELAYl INY I USED HAINLY 

CPY SETDELAY I TO TlflE 

BNE DELAYl (FALLING POPCORN 

LDY »e 

DEX 

BNE DELAYl 

RTS 
( 
DELAYTABLE .BYTE a . 288 . 13B , 1 2B^ IBB, 88, 7e , i5, iB 

.BYTE S5,5B,4S,4B;3S,40,24,2i, iS, li, IB 



PAUSE 


TYA 




(A LONGER PAUSE 




PHA 




(THAT SAVES THE 




LDA 


*e 


(Y RE8 




TAY 






PAUSEl 


CLC 








ADC 


• 1 






CMP 


• 22 






BED 


DONE? 




PAUSE2 


INY 








BNE 


PAUSE2 






JMP 


PAUSEl 




D0NE7 


PLA 
TAY 
RTS 






1 JIFFY 


TIMER 






LONBPAUSE STA TEHP 


(A REG 




LDA 


• B 


(CONTAINS JIFFIES 




STA 


2B 


( (1/6B SEC) FOR 


HAITI 


LDA 


2B 


(LENGTH OF PAUSE 




CMP 


TEMP 






BNE 


WAITl 






RTS 






(BET A 


RANDOM NUMBER 




RANDOM 


ETA 


TEMPA 






LDA 


RAND 


(RANDOM NUMBER 




AND 


TEMPA 


(KNOCK OFF 




STY 


TEMPA 


(THEN 




CLC 




(THEN ADD 




ADC 


TEMPA 


(SPECIFIED NUMBER 




RTS 







(TAKE POPCORN OFF DF SCRN 

I 

ERA5EPDPC0RN LDA (tlS (BLANK CHAR 

STA LOADCHAR 

JSR CHARPOLL (ALL OFF SCRN! 

LDA *a 

TAX 

LOOP'SA STA POSITION. X [NOW CLR 

INX (POS. TABLE 

CPX •12 

BCC L00P9A 

LDA •2 

STA LOADCHAR 

RTS (ALL DONE 

1 
(YOU GET TO SEE THE BOSS! 



LDA *&4 (DISABLE DL I ' S 

STA NMIEN 

JSR CLRPM 

LDA • <SCRN (CLR SCRN 



STA CLR 

LDA • >SCRN 

STA CLR+1 

LDX •S 

JSR CLRB 

LDX Uma (CHANGE PLAYER 2 

LDA •12i (TO DOOR 
MRITEDOQR STA PM+1694,X 

DEX 

BPL WRITEDOOR 

LDX »e 
REDEFINEl LDA BOSSCHARl.X (ALTERNATE 

STA CHARDRB.X (CHR 

INX (SET 

CPX WAS 

BNE REDEFINEl 

LDX KB 
REDEFINE2 LDA B0SSCHAR2,X 

STA CHAR0RG2,X 

INX 

CPX •ISZ 

BNE REDEFINE2 

LDA •I (CHANGE PRIORITY 

STA SPRIOR 

LDA »3 (PLAYER 2 SIZE 

STA SIIEP2 

LDA •228 (PLAYER2 COLOR 

STA PC0LR2 

LDA ^136 

STA COLORl 

LDA BOSSFLAS 

BNE DONTCHANGE 

LDA •13 (RND(0) •IS-H 

LDY •! 

JSR RANDOM 

ASL A t'lii 

ASL A 

ASL A 

ASL A 

CLC 

ADC aiA 

STA C0L0R2 (COLOR OF LETTERS 
DONTCHANSE LDA • <BOSBDHST 

STA SDLSTL (NEW DISPLAY 

LDA • >BOSSDHST (LIST 

STA SDLSTL+1 

LDA • <BOSSDLI 

STA VDSLST [AND DLI 

LDA • >eOSSDLI 

STA VDSLST4-1 

LDA ^192 (ENABLE INTERR. 

STA NMIEN 

LDA • CSCRN (GET FIRST 

STA TEMP (BYTE OF SCRN 

LDA » >SCRN 

STA TEMP+1 

INC TEMP+1 [ADD 2SS 

CLC 

LDA TEMP 

ADC ^93 (+93 - 

STA TEMP (SCRN+34B 

BCC DCl 

INC TEMP+1 

DCl LDA BOSSFLAS 

BNE LOSEFACE 

FINDNUM LDA RAND I GET MESSAGE 

CMP •(. (RANDOM NO. 

BCS FINDNUM 

TAX 

LDA BOSSTABLE.X (FIRST BYTE 

STA BOSSXRES (OF MESSAGE 

LDA »Z7 (HAPPY FACE 

JMP STOREFACE 
( 

LOSEFACE LDA *« (SAD SONG 

STA BOSSXRES 

STA C0L0R2 (BLACK MESSAGE 

LDA »*l [SAD FACE 

STOREFACE STA FACE 

LDX »0 

LOOPX LDY »e [PUT CHRS 

LDA BOSSl.X (THAT MAKE 

STA (TEMPi,Y (UP BOSS ON 

INX [SCRN 

INY ( (2 W1DE«9 HIGH) 

LDA BOSSl.X (NEXT CHAR 

STA (TEMPi.Y (PUT ON SCRN 

CLC 

LDA TEMP 

ADC »2B [2B BYTES PER LINE 

STA TEMP ( (ADD TO OFFSET) 

BCC LPX 

INC TEMP+1 
LPX INX 

CPX »1« 19 HIGH 

BNE LOOPX 

LDX »B 
FRAMEDOOR LDA •I 

STA SCRN*34B,X (LEFT SIDE 

LDA »2 

STA SCRN+3S1.X (RIGHT SIDE 

CLC 

TXA 



(20 BYTES PER LINE 



ADC ^20 

TAX 

CPX •100 (DONE? 

BNE FRAMEDOOR [NO! 

LDA •S [NOW FRAME IN 

STA SCRN+329 [TOP OF DOOR 

STA SCRN+330 

LDA HA 

STA SCRN+32S 

LDA »S 

STA SCRN+331 

LDA »112 

STA HP0SP2 [CENTER DOOR 

JSR LONQPAUSE 

LDA ^100 (MAKE MECH. 

STA AUDCl (SOUND FDR DOOR 

STA AUDC2 [BEAT VOICES 

LDA ^24 (ONE AND TWO 

STA AUDFl [TOGETHER 

LDA •25 

STA ftUDF2 

LDA #113 

STA TEMPI 
OPEN JSR PAUSE 

LDA TEMPI 

STA HP0SP2 (MOVE DOOR 

CMP •13S (DDNE7 

BEO DONEA [YES! 

JSR PAUSE 

INC TEMPI 

JSR PAUSE 

JMP OPEN 
I 
DONEA LDA •B [SHUT OFF SOUND 

STA AUDCl 

STA AUDC2 

LDA »3e 

JSR LONGPAUSE 

LDA BOSSFLAS 

BNE PLAYSAD [WHICH SONG? 

LDA »13a [HAPPY' 

BNE SDNBSTART 
( 

PLAYSAD LDA •IBS [SAD 
SONQSTART STA SONGXREG [NOW PLAY 

LDY FACE [SONG AND PUT 

STY SCRN + 349 I CORRECT 

INY (FACE ON SCRN 

STY SCRN+350 

INY [EACH FACE MADE 

STY SCRN+3i9 (UP DF FOUR 

INY [CHRS 

STY SCRN+37e 

LDX BOSSXRES [WHICH MESSAGE? 

LDY »e 
PRINTl LDA MESSAGES, X 

STA SCRN + 4i>4,Y I PUT ON SCRN 

CMP •129 i INVERSE I 

BEO GOBACK (NOT DONE! 

INX 

INY 

JMP PRINTl 
! 
GOBACK LDA •25S 

JSR LONGPAUSE 

LDA •B 

STA DMA [SHUT OFF DMA 

LDA «1 s (CLEANER SUICHINE) 

JSR LONGPAUSE [PAUSE I JIFFY 
( 

[RESET TO ORIGINAL 
I 

LDA «0 [CLR VARIABLES 

STA HP0SP2 [DOOR HORIZ 

STA SIZEP2 

STA BOSSFLAS 

LDA •64 (DISABLE 

STA NMIEN (DLI'S 

JSR CLRPM (PUT PROPER 

JSR WRITEPM (PLAYERS BACK 

JSR PUTCHAR [AND CHAR SET 

JSR WRITECOLORS 

JSR SETDL [SET DISPLAY LIST 

LDX TEMPXREG [GET BACK X AND 

LDV TEMPYREG (Y REGS 

RTS 
( 

TEMPXREE .BYTE 
TEMPYREG .BYTE 
BOSS! .BYTE 33,34,33,34,109,110 

.BYTE 1 11 , 1 12, 1 13. 1 14. 1 . 1 
I 
(MESSAGES WHEN SEEING THE BOSS 

MESSAGES .SBYTE +»B0, "YOU'RE FIRED!" 



i 

m 
u 



> 

> 

I— 
O 
G) 

O 
O 

K 
■V 

Z 

o 



.SBYTE +«BB 

.SBYTE +»e0; 

.SBYTE +»B0, 

.SBYTE +»B0, 

.SBYTE +»a0; 

.SBYTE +»a0; 



GREAT JOB! 
WAY TO 80' " 

WOWEE! " 
FANTASTIC! " 
LIKE, AWESOME! 
GOOD WORK!" 



CO 

w 

c 
m 



BDSSXRES .BYTE B 
BOSSFLfiS .BYTE B 
BOSETABLE .BYTE 13 
FfiCE .BYTE B 
VftLUE .BYTE 1,5 
I 

I THEME SONS DATft 
I 



IHfiPPY OR SftD BOSS 
2S,3i,4i,37,71 

I HAPPY PR SAD 
Zl.BS 



SONS 



.BYTE 121 

.BYTE 12S 

•BYTE 1*4 

.BYTE 121 

.BYTE 142 

.BYTE 9i, 

.BYTE 121 

.BYTE 12B 

.BYTE 94 

.BYTE 14 

.BYTE 2 . 

.BYTE 217 

.BYTE 12B 

.BYTE 173 

.BYTE 142 

.BYTE 173 

.BYTE 193 

.BYTE 144 



,4 
,2 

:l 

;:! 

'3, 
4, 
4, 
4, 
4, 
2, 

;2, 

4, 



94 4 

121,* 

12S,2 

144,1 
42,4, 
94,4 
121,4 

12B,4 
2, 142 
193,2 
142,4 
217,4 
128, 4 
142,4 
173,2 
12S;4 



142,4, 144,2 
,94,4, 142,4 
, 121,*, 94, 4 
IBS, 4, 128,4 

126 i 121 4 
144,2, l2B,2 
142,4, 144,2 

94,4, IBS, 4 

217,4, 193 
,4. 15b 4 
, 173,2 162,4 
128, 4, 144, 4 
193,2, 173,2 
;217,4, 193,2 
, 128,4,217, 4 
, 142,4, 128,4 
, 142,S,B,B 



2, 53, 2, 47, 4, 4B, 4. 53 
4,4,4B,8,B 



I SONS VALUES WHEN CONBRADULATED 
I 

.BYTE 4B, 

.BYTE 4,6 

I SONS MHEN YOU LOST THE SAME! 

.BYTE 81,2,81,4,31,8,108.4 
-BYTE 94,4, I2l, 14,243, 16, B 

I SONS MHEN YOU LOSE 3 CHANCES 

I 

.BYTE 243. B. 217. 4. 2B4, 12,217 
.BYTE 12.243.2.235.2,243:2,255,2 
.BYTE 243,8,217,4,243,3,0,4 

I 

■DIDDLE MHEN A CHANCE IS SAINED 

I 

.BYTE 33,2.37,2,33,2,37,2,0,0 

IPOPCORN'. IN BIS LETTERS 

I 

POPCORNSCRN 

.BYTE 0,0,45,45,45.45.0,45 
.BYTE 45,45,^5,0,45,45,45,45 
.BYTE 0, is, 45, is, 63,0, is, 65 
-BYTE 45, 4S,B 45,45.45, iS,B 
.BYTE 45,0,0, is, 0,45, 0,0 
.BYTE 0, 0, 45, 0,0, is, B, is 
.BYTE B,B,65,B,4S,B,B,6S 
.BYTE B,4S,B,B,B,B,i5,B 
.BYTE 0,45,0,45,0,0,45,0 
.BYTE 45,0,0,45,0,65,0,0 
.BYTE e, B, is, 0,0, is, 0, is 
.BYTE 0,0,45,0,45,0,0,45 
.BYTE 4S,B,B,0,B,l5.B 
.BYTE B, 45, B, 65, 0,0, 65,0 
.BYTE 45,0,B,65,B,6S.0,0 
.BYTE 0,0, is, 43, 45,45,0, 45 
.BYTE B,B, 45,0, is, is, is, 65 
.BYTE 0,45,0,0,0,0,45,0 
.BYTE 0, 45. B, 45. is, 43, 0,0 
.BYTE 45,65,0,45,0,45,0,0 
.BYTE 0,B,45,0,B.B,B.i5 
.BYTE 0,65,0,45, B, 4,0 
.BYTE 0,6S,0,0.B,4,iS,0 
.BYTE 0,65,0,65.4,4,45.0 
.BYTE 4S,B,65,4S,4,iS,0,B 
.BYTE 0,ft,i5,4,B.B,B,i5 
.BYTE 0,45,0,65,4,4,0 
.BYTE 4S,0,B.B,4,iS.B 
.BYTE 0, 63, B, 43, 4,0, 45,0 
.BYTE 45.0,0,45,0.0.0,4 
.BYTE 0.0, is 0,4, 4, 4. is 
.BYTE 4S,i5,is,B,4S,4,B,B 
.BYTE B, 65. is, is, 65, B, 45. 45 
.BYTE 44,4*. 0,43, 0,4, is. 4 
.BYTE 45,0,0,i3,0,i3,0,e 



. SBYTE 
. 8BYTE 



"By Mark «nd " 
"Cathy Slaatoan" 



MES8ABE 

MESBASEl .SBYTE " SCORE 

I 

IDI8PLAY LISTS 

I 

ITITLE PA8E 

COVER .BYTE 112,112,46 

.MORD SCRN 

.BYTE 2,2,2,2,2.2,2,2 

.BYTE 2,2 2,2, 13»'2,2,2 

.BYTE 2.2.2,2,2,6* 

.WORD COVER 

I SCRN WHEN SEEINB BOSS 
I 



BOBBDLIBT .BYTE 112,112,112.70 

.WORD SCRN 

.BYTE 6,6,4,6,6,4,4,4 

.BYTE 4, 4, 4, 4, 4, 4, 4:4 

.BYTE 4,4,4:41134,4 

.BYTE 4:112:45 

.WORD BOSSDLIST 

I 

■SAME SCRN 

I 



STA WSYNC 
BTA CHBABE 
LDA kS 
BTA COLBK 
PLA 
RTI 

I 

I DATA FOR NEW CHAR. 

I 

CHARDATA .BYTE 



ICHBAB HARDWARE 
IBREY FLOOR 



DLI8T 



.BYTE 112,112,194 
.WORD SCORELN 



.BYTE 77 

.WORD SCRN 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 

.BYTE 13 
.BYTE 



!woRo dlIbt 



13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13, 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13 


13, 

14 


13 


13 


13 


13 


13 


.13 




ISJ I4I, 1 J, li, 14j ,43 



1 DISPLAY LIST INTERRUPTS 

I 

ICHANBE SCORELINE COLOR 



I 

DLIl 



■CLEAN BREAK 
■NEW COLOR 



PHA 

LDA 0218 

BTA WSYNC 

STA C0LPF2 _ _ 

LDA • <DLI2 ■NEXT DLI 

BTA VDSL8T 

LDA » >DLI2 

STA VDSL8T+1 

PLA 

RTI 



■CHANBE POT COLOR 

■ 

DH2 PHA 

LDA »22B 



■CLEAN BREAK 
■ POT 

ICANEHEAD COLOR 
■PUT IN CANE 



■ PUT A 

I 

DLI3 



STA WSYNC 

BTA COLPMl 

LDA PC0LR2 

BTA COLPF0 

LDA * <DLI3 ■NEW DLI 

STA VDSLBT 

LDA » >DLI3 

STA VDBLBT+1 

PLA 

RTI 

CUFF ON THE ARM 

PHA 

LDA *10 

BTA WSYNC 

STA COLPM0 

LDA «4 

STA PRIOR 

LDA » <DLI4 ■NEW DLI 

STA VDBLST 

LDA « >DLI4 

STA VDSLST+1 

PLA 

RTI 



■CUFF WHITE 
■MAKE CANE PASS 
■BEFORE PLAYER 



.BYTE 0,0, 170,40,40,0! 170;S5, 4 

.BYTE 0,0, 170, 174, 170: 170, 174, 85,0 

.BYTE 0,0,B,B,0,B,0,B,B 

.BYTE 0,B,B,B, BlB.B B.BS 

.BYTE 0,0,0,0,0,0,0,44.85 

.BYTE 0,0,0,0,B,B,0,0,eS 

.BYTE 0,B,B,0, B,B,0, 0,0 

.BYTE 0,0,85,4,4,4,4,0,0 

.BYTE 0,44,85,4,4,4,0,4,0 

.BYTE B,B, 85, 4, 4, 0,4, 4, 4 

.BYTE 0,0,0,4,4,4,4,4,4 
I 

■FDR BOSS'S CHAR. SET 

■ 

.BYTE 0,B,0,0,B,B,0,B,B 

BOSBCHARl .BYTE 0,247,247,247,0,127,127,127 
.BYTE 54, 248. 248, 24a, si, 124,^124,120 
.BYTE 28:31.31,31,28,31,31,31 
.BYTE 255,255,4,0,0,4,0,0 
.BYTE 127,255,252, 252, 120 , 120 , 120 , 120 
.BYTE 234, 233, 43, i3, 31 ,31,31,31 

B088CHAR2 .BYTE B,4,B,4,B,B,0,0 

-BYTE 0,7,l5,25,i3,4l, 125, 127 

.BYTE 0,224,240 132,252, 188, 190,254 

.BYTE 63,60,31,15,7,3,3,0 

.BYTE 252,44,248,240,224, 192, 192,0 

.BYTE B, 7, 13:27, 53, 61, 125, 127 

.BYTE B,224, l762li,2i6, 188,190,234 

.BYTE 59,40:31, IS, 7,3,3, B 

.BYTE 224, 44, 24b, 240, 224. 192, 192,0 

.BYTE 0, 7, 15,27, il, 42, 125, 125 

.BYTE 0,224,240,2li, 188 , 124 , 190 , 190 

.BYTE 63,40,27,15,7,3,3,0 

.BYTE 252,44,214,244,224, 192, 192,0 

.BYTE 43, 127, 127, 111, 111, 111, 111, 111 

.BYTE 252, 2S4, 254,246, 246, 24i,24i, 244 

.BYTE 94,111,13,110,110, l4, 14, 14 

.BYTE 4,244,240, 118,1X8112,112,112 

.BYTE l4,14 14, 14, 14, 14 30,42 

.BYTE 112,ll2,ll2,112,ll2,ll2,120,124 

I 

■VERTICAL BLANK INTERRUPT ROUTINE 

I 

SNDVALUE .BYTE 142,9,138,13,134,17,130,21 

■ 

VBROUTINE CLD 

LDA LENSTH I LENSTH OF NOTE 

BED NEXTNOTE ITIME TO PLAY NEXT NOTE 

DEC LENSTH ■DEC. TIMER 

JMP ENDl ISKIP THE REST 

I 

NEXTNOTE LDA BNSFLAB ■NOTE OR SILENCE 



■MAKE 8REEN TABLE 
I 

DLI4 PHA 

LDA «200 
BTA WSYNC 
STA COLBK 
LDA • <0LI1 
STA VDSLST 
LDA • >DLI1 
BTA VDSLST+1 
PLA 
RTI 

■ 

■DLI FOR TITLE SCRN 

■ 

DLI PHA 

LDA tt224 
BTA WSYNC 
STA CHBABE 
LDA l»10 
BTA COLPFl 
LDA tt0 
STA C0LPF2 
PLA 
RTI 

IFOR BOSS' 8 SCRN 

B0S8DLI PHA 

LDA •224 



IBACKQRND 
■NEW DLI 



■DEFAULT CHftRSET 
■CLEAN BREAK 
■SWITCH CHAR SET 
■NEW CHAR. COLOR 

IBACK8RND 



EOR 


*1 


■FLIP IT 


STA 


SNSFLAS 




BNE 


SNDOFF 


■SILENCE 


LDX 


SONBXREB (BET NOTE P 


LDA 


BONS,X 


■THEN NOTE 


BEQ 


ENDl 


■ IF DON'T PLAY 


BTA 


AUDF3 


■ AND BOUND OFF 


LDA 


«170 


■PURE TONE 


BTA 


AUDC3 


■ IN CONTROL 


INX 




■BET LENSTH 


LDA 


BONS.X 
LENSTH 


■OF NOTE 


STA 


■AND STORE IT! 


INX 






BTX 


SONBXREB 1 UPDATE NOTE POB. 


JMP 


ENDl 


■ DONE 


SNDOFF LDA 


«B 


■SHUT OFF SOUND 


STA 


AUDC3 


■ ( REST) 


LDX 


SONQXREB IPOS. IN TABLE 


DEX 




■BET LENSTH 


LDA 


SONS, X 
LENSTH 


1 ( SAME AS PREVIOU 


BTA 


INOTE) 


END! LDA 


STICK0 


■STICK PDS.? 


CMP 


»7 


IRIBHT ! 


BEO 


FORWARD 




CMP 


»11 


■YOU BUEBSED IT! 


BNE 


DONEX 


■IF NOT-DON'T MOVE 


LDA 


HPOS 


■POB. OF HAND 


CMP 


«SB 


■TOO FAR LEFT? 


BCC 


DONE 


■ YES! 


LDY 


LEVEL 


■SET LEVEL 


CPY 


tts 


■ IF UNDER 3. 
■NEED TO SLOW IT 


BCC 


BLOWER 


DEC 


HPOS 


■ DOWN 


SLOWER DEC 


HPOB 


■MOVE TWICE 


DEC 


HPOB 




JMP 


DONE 





I TOO FftR RIBHT7 

I YES '. 

■SAME AS ABOVE 



(KILL ATTRACT MODE 



I 

DQNEZ 



LDA HPOS 

CMP •I'JS 

BCS DONE 

LDY LEVEL 

CPY «5 

BCC SLOUERt 

INC HPOS 

INC HPOS 

INC HPOS 

LDA me 

STA ATRACT 

LDA HPOS 

STA HPOSPl I POT 

CLC 

ADC »S 

STA HPOSPB I HAND PART TWO 

LDA SNDFLASPOP I POPCORN P0PINB7 

BEQ DONE? I NO! 

INC DELAYPOP I YES. INC. COUNTER 

LDA DELAYPOP I NEXT SOUND 

CMP ^2 (EVERY 2 VBI'B 

BNE D0NE9 (READY 

LDX XFLABPOP (BET NEXT VALUE 

LDA SNDVALUE.X 

STA AUDC2 (SOUND 2 

INX (BET NEXT 

LDA SNDVALUE.X (FREQUENCY 

BTA AUDF2 (VALUE 

LDA Ha (RESET TIMER 

STA DELAYPOP 

BTX XFLABPOP (NEXT VALUE 

CPX »B (DONE WITH POP? 

BNE D0NE9 (NOPE. 

LDA »e [RESET 

STA AUDC2 (SOUND 

BTA XFLABPOP (NEXT VALUE 

STA SNDFLASPOP ('POP- FLAB 

LDA CATCHSND (ANY CAUBHT7 

BEQ NOTCAUGHT (NOPE! 

INC SNDDELAY (YES! 

LDA SNDDELAY [EVERY TWO VBI'S 

CMP «1 

BNE NOTCAUSHT 

LDA CATCHSNDl [IF IN MIDDLE OF 

BNE RR (POP, START 

LDA »2Ae (ONE 

STA FREQ 

LDA »ne 

BTA AUDCl 

LDA FREQ 

BTA AUDFl 

BEQ DONEZ 

SEC 

SBC *40 

STA FREQ 

LDA »e 

STA SNDDELAY 

LDA *1 (SHOW SOUND IS 

STA CATCHSNDl (IN PRQSRESS 

BNE NOTCAUSHT (ALL DONE! 



BNE MOVED (DON'T PUT BACK IN PLAY 
MQVEIT INC POSITION, X : NEXT POS 
MOVED INX 

STX XREB (SAVE POPCORN POS 

LDA LOADCHAR [POPCORN CHAR. 

STA CHR 

JSR PRINTCHAR 

LDX XREG [CHECK NEXT 

CPX ((12 [POSITION 

BCC CHKPOS 

RTS 
( 

(USED TO PRINT TO BR. 7 8CRN 
( 
PRINTCHR STA CHR 

STY VERT 

STX HORIZ 
PRINTCHAR LDA ttl 

STA CHECK 



(VARIABLES 



(PURE TONE 
(NEXT VALUE 



[D0NE7 YES. 
(NEXT NOTE 



(RESET DELAY 



LDA t24a (SET SOUND 

BTA FREQ (READY FOR NEXT 

LDA «0 (CATCH 

STA CATCHSND 

STA CATCHSNDl 

STA SNDDELAY 
NOTCAUSHT JMP XITVBV 
( 
INITVBLANK 

LDA »7 

LDX 

LDY 

JMP SETVBV 



(DEFFERRED VBI 
* >VBROUTINE (ADDRESS OF 
» <VBROUTINE (VBI PROBRAM 



( 

[PLOT CHRS IN BR. 

( 

CHARPOLL LDA ke 

BTA XREB 
CHKPOS LDX XREB 



(SET IT UP 



(KEEPS TRACK OF 
(CURRENT POPCORN 



LDA POSITION, X (CHECKS 
BNE CHKMOVE I TO SEE 



[IF POPCORN 

[ IS ON SCRN 

[IF SO. MOVE 

(IT DOWN 



INX 

INX 

STX XREB 

CPX »12 

BCC CHKPOS 

RTS 



LDA POSITION, X (TABLE 

STA HORIZ (DRIVEN HORIZ 

INX (AND VERT VALUES 

LDA POSITION, X 

STA VERT 

CMP »97 [FALLEN 0FFSCRN7 

BCC MDVEIT [NO! 

DEX (YES. PUT OUT OF PLAY 

LDA »e 

STA POSITION, X 

INX 

STA POSITION, X 

INC MISSPOP (ONE MORE MISSED 



ccc 



[1ST OR 2ND PART? 

[2 CHAR. PER POPCORN 
LDA (t >CHAR0RB3 [CTRL CHAR 
STA CHAR+1 
LDA CHECK 
BNE AAA 

INC HORIZ I2ND PART 
INC CHR 
LDA »e 

STA CHAROFS+l (RESET 

STA PLUS (VARIABLES 

BTA DFFSET+1 

STA TEMP+l 



ERASECHR LDA HPOS [PLAYER HORIZ POS 

SEC 
( 

(ROUTINE FINDS CHAR POSITION 
(BY HORIZ LOCATION OF PLAYER 
( 

LBR A [DIVIDE BY FOUR 

LSR A 

SEC 

SBC »4 

STA HPQSl 

LDY »0 

LDX »e 

CHKPLAYER LDA POSITION, X 

BEQ CHECKED (IF SKIP CHECK 

CMP HPOSl 

BEQ ERASE (ERASE POPCORN 
CHECKED INX 

CPX «12 (COMP. ALL POPCORN 

BNE CHKPLAYER 

INC HPOSl (CHECK AROUND PLAYER 

INY 

LDX #e 

CPY »b [ALL DONE? 

BNE CHKPLAYER (NO! 

RTS 



i 

m 

CO 



( 

ERASE 



(VERTICAL VALUE 

(»2 

(SAVE CARRY 

(»♦ 

(♦a 



(SAVE HIGH&LOW 
(BYTES 
l*l& 



(•32 



(ADD VERT»8 
(TO SET VERT»40 



(SIMPLY ADD 
[HORIZ. VALUE 
(OVERFLOW? NO. 



LDA VERT 

ASL A 

ROL TEMP+l 

ASL A 

ROL TEMP+l 

ASL A 

ROL TEMP+l 

LDX TEMP+l 

STX OFFSET+1 

STA OFFSET 

ASL A 

ROL TEMP+l 

ASL A 

ROL TEMP+l 

CLC 

ADC OFFSET 

STA OFFSET 

LDA TEMP+l 

ADC OFFSET+1 

BTA OFFSET+1 

LDA OFFSET 

CLC 

ADC HORIZ 

STA OFFSET 

BCC BBB 

INC OFFSET+1 

CLC 

LDA OFFSET 

ADC * <SCRN [ADD IN 

BTA OFFSET (MEMORY LOG OF 

LDA It >SCRN [FIRST BYTE 

ADC OFFSET+1 (ON SCRN 

STA OFFSET+1 

LDA »e 

STA TEMP+l 

LDA CHR (CHAR TO PRINT 

ASL A (OFFSET- CHAR*9 

ROL CHAROFS+1 

ASL A 

ROL CHAROFS+1 

ASL A 

ROL CHAROFS+1 

CLC 

ADC CHR 

BTA CHAR 

LDA CHARQFS+1 [ADD IN LOC 

ADC CHAR+l [OF CHR SET 

STA CHAR+1 

LDY PLUS [BYTE OF CHAR. 

LDA (CHAR),Y (NUMBER FOR BYTE 

LDY ute 

STA (OFFSET), Y (PUT ON SCRN 

LDA OFFSET 

CLC 

ADC »40 

BTA OFFSET 

BCC CCC 

INC QFFSET+1 



( 



LDA POSITION, X (VERT POS OF POPCORN 

DEX 

CMP 1178 [AT LOC OF POT (VERT)? 

BCC CHECKED [TO HIBH UP ON SCRN 

STA VERT [STORE IT 

LDA POSITION, X (STORE 

STA HORIZ (HORIZ POS 

LDA *1S (BLANK CHR 

STA CHR 

LDA «0 

STA POSITION, X (PUT THAT POPCORN 

BTA P0SITI0N+1,X (OUT OF PLAY 

JMP PRINTCHAR I ERASE CHR 



(CLR MEMORY ROUTINE 
I 

CLR0 LDY ae 

TYA 

CLRl STA (CLR>,Y 

INY 

BNE CLRl 
INC CLR+1 
DEX 

BNE CLRl 
RTS 



[LOW BYTE OF 
[BEB. MEM IN CLR 
(HI8H BYTE IN 



[PLAYER DATA 

[ 

PMDATAa 



.BYTE 32, 112, 24B, 242, 242,254, 12i 
.BYTE 62,15,13,15,13,15,15,15 
.BYTE 2SS,2SS,25S, 12i, 12i, 126 
.BYTE 126,126, 126: IZA.B, BIB, B,» 
.BYTE B, 120,248,128, 128, BIB, 
-BYTE B,0,0,0,B,0,B 



> 

> 

I— 

o 
o 

o 
o 

"D 

C 
H 

Z 

o 



I 

(RUN ADDRESS 

I 

*- •B2EB 
.WORD START 
.END 



(4B BYTES PER LINE 
(OVERFLOW? MO. 



INC PLUS 

LDA PLUS 

CMP #9 

BNE L00P2 

DEC CHECK 

LDA CHECK 

CMP HZSS 

BEQ MMM 

JMP PRINT 
I 

MMM RTS 
( 

(ROUTINE TO ERASE POPCORN 
(THAT TOUCHED POT 
( 



(9 BYTES PER 
[CHR 



(NEXT CHR 

(WOULD BE THIRD 

[CHR 

[ (TWO PER POPCORN) 




CO 
CO 

c 
m 
r\3 
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An ANALOG 
Computing 

Tutorial 



Painles$ 
Player Mover 



24K Cassette or 32K Disk 



by Chet Walters 



Aaahh, player/missile graphics! One of the Atari's 
finest features, and a powerful one, to be sure. Just 
displaying players is not at all difficult. Merely place 
the proper shapes in the correct area of memory, per- 
form a series of POKEs to certain hardware registers 
and — bingo! — Antic will proceed to display your play- 
ers, each with its own color, and each independent 
of the current display mode. Fantastic! 

But try to move them through BASIC. The players 
must wait around for BASIC stick reads and POKEs 
to tell them where to go. The problematic result is 
jerky motion or jumps from one spot to another. So 
much program time must be devoted to simple play- 
er movement, it seems there's little left over for really 
creative playfield displays. It's a real problem. 

What's the solution? Monitor input constantly and 
move the players at regular intervals. Is that possible 
in BASIC? Sure. With a dash of machine language 
and effective use of your Atari's leftover vertical blank 
interrupt (VBI) time, it's easy! 

Painle$ help. 
Enter the Painles$ Player Mover. During each VBI 
period (sixty times every second), Painles$ reads all 
four sticks and moves all four players smoothly to the 
newly designated positions (positions, incidentally, 
within set limits or without limits), with no BASIC 
overhead. In fact, once Painles$ is in place and ac- 
tivated, your BASIC program can stop completely, 
while Painles$ goes on reading sticks and moving 
players (pointless, certainly, but it does). 



Besides stick moves, Painles$ will move players in 
response to simple POKEs. Painles$ offers the means 
to instantly change any player's shape at any time. 
Painles$ deals equally as well with double-line reso- 
lution as it does with single-line resolution. It will 
move your players at the speed of your choice, and 
that speed can be changed during the program run. 

The Painles$ machine code is completely relocat- 
able (except a necessary data table that resides in the 
cassette buffer) and can be stored in a string or in 
that wasted memory in front of player memory. Pain- 
Ies$ uses only four obscure page memory locations, 
so the usual ones remain available for your use. After 
the initial setup, page 6 is completely free for your 
exclusive use. And, as mentioned, the program exe- 
cutes automatically every VBI, or Painles$ itself can 
be turned off with a single POKE! 

As you may have surmised, it will take some time 
to explain how to use such a versatile routine. This 
article will do just that. . .and only that (the editors 
have asked that I be brief). If you don't know what's 
needed to get Atari's player/missile graphics up and 
running, there are plenty of sources from which you 
can glean the necessary information. I suggest that 
you get one and familiarize yourself with player/missile 
graphics, because little of what the system requires 
will be provided here. If you are familiar with Atari's 
player/missile graphics and all of the features it offers, 
let's get to work! 

(continued on page 39) 



AATARI 



S\ 



Printers/Etc. 



T 



■ftsim 



600XL CALL 

800XL CALL 

© r9S4 Atari, Inc., ' All rights reserved. 



DISK DRIVES 

Rana 1000 $298 

Astra 2001 $549 

Indus GT $309 

Trak AT-D2 $329 

Irak AT-1 $319 

Trak AT-D4 Call 

Astra 1620 (Dual) . . . $499 

Percom Call 

Atari 1050 $249 

MEMORIES 

Microbits64K(XL) . , $115 

Mosaic 48K (400) $98 

Mosaic 64K (400/800) Call 
Mosaic 32K $68 



INTERFACES 

Axiom 846 Call 

Ape Face Call 

Atari 850 (In Slock) , . $169 

Interfas1 1 $150 

Microbits 1150 Call 

R-Verter Call 

DIRECT PRINTERS 

Axiom AT-100 $196 

Atari 1027 $269 

Axiom 550 AT $259 

Axiom 700 AT $469 

Atari 1025 $299 

DIRECT MODEMS 

Microbits 1000C $128 



OTHER ATARI 

400 Keyboard Call ATR-8000 (54K) 

Koala Pad $67 ATR-8000 (16K) 

Chalkboard Pad $75 Alien Voice Box 

Bit-380Column $228 1010 Recorder 



$489 
$359 



$74 



GEMINI 10X$259.00 

ATARI SOFTWARE 



MISCELLANEOUS 

Syn Calc (D) $59 

Syn File (D) S59 

Syn Trend (D) $48 

Syn Com (D) . $29 

Syn Chron (D) . $29 

Decattilon (R) $29 

Drols (D) $23 

Gyruss (R) $31 

Heist (D) $23 

Bruce Lee (C/D) $27 

Universe (D) , Call 

Queslron (D) . . $34 

Koala Coloring I $20 

Koala Logo Design , . S27 

Bumble Games (D) $27 

Miles Accounting Call 

World Gtst. Baseball S23 

Gridrunner (R) $20 

Sargon II (C/D) $23 

Millionaire (D) . $34 

Castle Wolfenstein(D) $20 

Odesia Chess (D) .... $46 

Financial Wizard (D) . . $41 

Ultima lll(D) $39 

ADVENTURE INT'L 

Adv. 1-12 each (C) $18 

Preppie(C/D) $20 

Preppiell(C;D) $23 

Diskey(D) $33 

Sea Dragon (C/D) $23 

Lunar Lndr . (C)$11 (D)$15 
Galactic Empire (C) . . $14 

ADVENTURE INT'L 

Ultra Disassembler (D) $33 

Diskey(D) $33 

Adv. 1-l2(each)(C) ... $18 
Saga 1-12 (each) (D) . . $27 

ATARI 

Atari Writer (R) $68 

Paint (D) $30 

Microsoft Basic II (R) . $64 

Visicalc(D) $139 

Home File Mgr(D) ... $36 
Assembler Editor (R) .$44 

Qix(R) $32 

Dig Dug (R) $32 

Atari Logo (R) $72 

Ms Pac Man (R) $33 

■Joust (R) $33 

Donkey Kong Jr (R) S35 
Computer Chess (R) $24 

Galaxian(R) $30 

Defender (R) $30 

ET $34 

Pac Man (R) $30 

Centipede (R) $30 

Caverns of Mars (D) . . $28 

Star Raiders (R) $30 

Conv. Lang. Ea. (C) ... $^2 

Asteroids (R) $27 

Space Invaders (R) ...$27 
Missile Command (R) . $27 

Telelink(R) $21 

Family Finance (D) ... $35 

Prog. 1(C) $18 

AVALON HILL 

Telengard (C)$16(D)$19 

Close Assault (C) 20(D) 23 

TAC(D) $27 

Space Station Zulu 

(D)$17(C)$14 

Flying Ace . (D)$21 (C)$18 

GFS Sorceress 

(D) $23 (C) $20 



AVALON HILL(Cont'd) 

Moon Patrol (C) $17 

B-1 Nuc. Bomber (C) . . $12 

Legionnaire (C) $23 

Empire of Overmind 

(D)$23(C)$20 

Tanktics . . . (D)$20(C)$17 
Comptr Stock & Bonds ... 

(D)$17(C)$14 

Galaxy (D)$17(C)$14 

Nuke War(C) $12 

Andromeda Conquest 

(D)$16(C)$13 

Close Assit (D)$23(C)$2D 
BRODERBUND 

Sky Blazer (D) $22 

Bank St. Writer (D) ... $46 

A.E.(D) $23 

Arcade Machine (D) ..$39 
Choplifter (D)$23(R)$29 

Labyrinth (C/D) $20 

Serpentine . (D)$23(R)$27 
Steller Shuttle (C/D) . . $17 

Apple Panic (C/D) $20 

Genetic Drift (C/D) ... $20 
Oper. Whirlwind (D) . . $27 
Choplifter . (D)$23(R)$29 
Match Boxes (C/D) .. $20 
CDY CONSULTING 

Pogoman(C/D) $27 

CBS 

Mountain King(R) . . . $27 
Boulders & Bombs (R) $27 
Krazy(each)(R) $27 

CONTINENTAL 

Home Accountant (D) $48 
Tax Advantage (D) ...$45 
COUNTERPOINT SW Call 
DATASOFT 

Pooyan (C/D) $20 

Teletalk(D) $33 

Graphic Master (D) ... $23 

Micropainter(D) $23 

2axxon(C/D) $27 

Pac. Coast Hvuy (C/D) . $20 
Clowns/Balloons (C/D) $20 

Spell Wizard (D) $34 

Canyon Climber (C/D) $20 
EASTERN HOUSE 
Monkey Wrench II .. $51 
EDUCATIONAL SW 

Tricky 1,2,3 or 4 $15 

Tricky 5-13 $22 

EDU-WARE 

Spelling Bee(D) $27 

Compu/Read 

(D)$21 (C)$15 

Compu/Malh-FR 

(D)$27(C)$21 

Compu/Math-Dec 

(D)$27(C)$21 

EPYX 

Dragon Riders (C/D) . . $27 
Temple APS (C/D) .... $27 
Jumpman(C/D) $27 

FIRST STAR 

Boulder Dsh (C/D) 20 (R) 27 

Bristles (C/D) $20 

Flip Flop (C/D) $20 

GAMESTAR 

Football (C/D) $21 

Baseball (C/D) $21 



DIABLO 






630 Letter Q 


ual. 


$1559 


SILVER REED 




EXP 400 LIr 


Qual, 


$288 


EXP 500 Ltr 


Qual 


$355 


EXP 550 Ltr 


Qual. 


$419 


EXP 770 Ltr 


Qual. 


$849 


STAR 






Gemini 10X 




$259 


Gemini 15X 




$378 


Delia 10 




. $378 


Delta 15 




$519 


Radix 10 




$549 


Radix 15 . . 




$645 


Power Type 




Call 


TOSHIBA 






1340 , 




$739 



. Call 
. 799 
$409 
.$639 



1351 .. , 
NEC 

3510 

3530 

3550 

7710/7730 



$1249 

. $1215 
$1215 

, $1498 
$1648 



CITOH 

Prowriter $315 

Prowriterll $498 

Starwriter $909 

Printmaster $1189 

OKIDATA 

82A 

84P 

92 

93 

DAISYWRITER 

2000 $985 

MANNESMANN 

1601 $559 

Spirit $299 

JUKI 

6100 $409 

ABATI 

LO 20P LIr. Qual. $378 

PANASONIC 

1090 $255 

1091 , $309 

1092 $456 



AMDEK 

V300 G $119 

V300 A $139 

V310 G (IBM) $155 

V310 A (IBM) $159 

Color 1+ $269 

Color II -I- $399 

Color III . $349 

Color IV (IBM) $699 
PRINCETON GRAPHICS 

MAX 12 (Amber) $178 

HX 12 (RGB) $449 

SR 12 (RGB) $595 
SUPER 5 

100A (Amber) $99 

500G (IBM with till) $126 

500A (IBM wilh till) $126 



MONITORS 



SAKATA 

SCI 00 (Color) $239 

1000G (Green) $99 

TAXAN 

100 Green , $115 

105 Amber $125 

210 RGB/Composite $269 

400 RGB Med-Res S296 

415 RGB Hi-Res $429 

420 RGB Hi-Res (IBM)$479 

NEC 

JB 1260 (Grn) $99 

JB 1201 (Grn) $145 

JB 1205 (Amber) $145 

ZENITH 

Green $85 

Amber $95 



MODEMS 



NOVATION 

J-Cat $99 

Apple Cat II $259 

D-Cat $149 



HAYES 

Smartmodem $199 

Smartmodem 1200 . $479 
Micromodem II $259 




COSMIC 
COMPUTERS 

727 BREA CANYON RD., SUITE 16 
WALNUT, CA 91789 

(800) 626-7642 



PLEASE FOR ORDERS ONLY 
SORRY, NO COD'S 

F.(714) 594-5204 



IN 

CALI 

FOR TECHNICAL INFO, ORDER INQUIRIES, 

Add $2.50 shipping per sollware order in continental U.S. Add $5,00 
shipping per soltware urder lor AK, HI, FPO-APO Add $10.00 or 15% 
(whichever is greater) per soltware order lor non-U S Call lor cost ol 
hardware shipping. Calil. residents add 6'/;% sales tax Cashiers 
checks or money orders tilled within 24 hours lor items in stock. 
Personal checks reguire 4 weeks to clear MasterCard and Visa OK lor 
soltware only within continental U S , add 3% surcharge Include card 
no , expiration dale and signature Due to our low prices, all sales are 
linal. All detective returns must have a return authorization number 
Please call lo obtain one belore returning goods lor replacement or 
repair Prices & availability subject to change 



DISK DRIVE SYSTEM 

MORE FOR YOUR MONEY 

DOUBLE OR SINGLE DENSITY 

TWO DRIVES 

2001 DISK DRIVE 




$549 




INDUS GT $309 

ATARI SOFTWARE 



MISCELLANEOUS 

Financial Wizard (D) . . $41 
Castle Wolfenstein(D) $20 

Master Type (D) $27 

Astro Chase (D) $22 

Miner 2049er(R) $34 

Megalegs(C) $23 

Cap'n Cosmo (D) $19 

Spy's Demise (D) $14 

Galac. Chase (D)$20 (C)$18 

Kid Grid (C/D) $20 

Battle Trek (D) $20 

Air Strike (C/D)' $27 

T&F-PMP Property 

Management (D) . . $149 
GEBELLI 

Firebird (R) $27 

Embargo (R) $30 

Candy Factory (D) $20 

Match Racers (C/D) . . $20 

Dr. Goodcode(D) $20 

HAYDEN 

Go (D)$23(C)$20 

Sargon II . . (D)$23(C)$20 

HES 

Coco (C/D) $34 

Coco II (C/D) $27 

INHOME 

Baseball . . (R)$23(D)$23 

Crypts of Terror 

(D) $23 (C) $20 

INNOVATIVE DESIGN 
Speedway Blast 

(D)$20(R)$27 

Pool 400 (R) $27 

JV SOFTWARE 

Jrny to Pints (C/D) .... $20 

Action Quest (C/D) ... $20 

Ghost Encount. (C/D) . $20 

INFOCOM 

Zorkl,llorlll(D) $27 

Deadline (D) $34 

Starcross(D) $27 

Suspended (D) $34 

Witness (D) $34 

Planetlall(D) $34 

Enchanter (D) $34 

Infidel (D) $34 

KRELLSAT Call 

INTELL. STATEMENTS 

Prof. Blackjack (D) ... $46 

LJK 

Letter Perfect (D) .... $74 

Data Perfect (D) $74 

Spell Perfect (D) $56 

Letter Perfect (R) $74 

MICROPROSE 

Solo Flight (D) $26 

Hellcat Ace (C/D) .... $23 
MONARCH 

ABCCompiler(D) .... $55 
OPTIMIZED SYSTEMS 

Action (R) $65 

Basic XL(R) $65 

Mac 65(D) $58 

C-65(D) $58 

Bug 65(D) $23 

ODESTA 

Chess (D) $45 

Checkers (D) $34 

Odin(D) $34 

PARKER BROS 

Astrochase(R) $33 

Death Star (R) $33 

Q-Bert(R) $33 

Popeye(R) $33 

PHOENIX 

Birth of Phoenix (D) . . $16 

Adv. In Time (D) $20 

QUALITY 

Name That Song 

(D)$13(C)$11 

Return of Hercules (D) $22 

AM Baba(D) $22 

Jeeper Creepers (D) . . $20 
ROKLAN 

Gorf (D)$27(R)$30 

DIx Invaders (D)$23(R)$27 



RESTOM 

Moviemaker (D) $45 

SCARBOROUGH SYS. 

Mastertype(D/R) $27 

Songwriter(D) $27 

SCHOOL WIZWARE . Call 
SENTIENT 

Gold Rush (D) $23 

Cyborg (D) $23 

SIERRA ON-LINE 
Mission Asteroids (D) $17 
Ulys.&Gldn Fleece (D) $27 
Crossfire . . (D)$20(R)$23 

Mouseattack(D) $23 

Jawbreaker (D)$20(R)$23 

Threshold (D) $27 

Homeword(D) $46 

Ultima 11(D) $39 

Dark Crystal (D) $26 

Wiz. S Princess (D) ... $22 

Lunar Leeper(D) $20 

Wiz & Princess (D) ... $22 

Frogger(C/D) $23 

SIRIUS 

Bandits (D) $23 

Space Eggs (D) $20 

Sneakers (D) $20 

Way Out (D) $27 

Type Attack (D) $27 

Repton(D) $27 

Critical Mass(D) $27 

Fast Eddv(R) $23 

SPINNAKER 

Snooper Troop 1, 2(D) . $30 

Most Amazing (D) .... $27 

Kids on Keys(D) $20 

Trains (D) $27 

Delta Drawing (R) .... $27 

Aerobics (D) $34 

Hey Diddle Diddle (D) . $20 
Srch AmzngThngs(D) $27 

Story Machine (D) $23 

Face Maker (D) $23 

STRATEGIC SIM. 

Broadsides (D) $27 

Carrier Force (D) $39 

Combat Leader (D) ... $27 

Rails West (D) $27 

Epidemic (D) $23 

Eagles (D) $2? 

Cosmic Bal I or II (D) $27 

SUBLOGIC 

Flight Simulator 11(D) . $36 

Pinball(C/D) $20 

SWIFTY 

J. White Music Lessons 

(C/D) $20 

SYNAPSE 

File Manager (R) $54 

Fort Apocalypse (C/D) $23 
Dimension X (C/D) ... $23 

Blue Max (C/D) $23 

Encounter (D/R) .... $23 

Zepplin(C/D) $23 

Pharoah's Curse (C/D) $23 
Protector II (D)$23(R)$29 
Shamus . . . (D)$23(R)$29 
Fort Apocalypse (C/D) $23 

Shamus II (C/D) $23 

Necromancer (C/D) . . . $23 
Pharoh's Curse (C/D) . $23 

Drelbs(C/D) $23 

Shadow World (C/D) . . $23 

Survivor (C/D) $23 

THORN EMI 

Soccer (R) $34 

Jumbo Jet (R) $34 

Submarine Comnn.(R) $34 
TRONIX 

S.A.M.(D) $39 

P.M. Animator (D) .... $29 

Juice (C/D) $20 

Chatterbee(D) $27 

USA 

3-DSprgrphcs(C/D) . . $27 
Survival Adv. (C/D) ... $17 
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Initialization. 

Look now at TAG, Listing L Line 10 tells us to go 
to 9000 to initialize, so we'll start there. That's where 
Painles$ is born. The program itself consists of Lines 
9000 through 10320, with a few specialized lines that 
concern only TAG. The first group of lines in the 
9000 series (HAL, is that you?) is absolutely neces- 
sary for Painles$ to work. In Line 9005, we determine 
where our player/missile memory starts. You can lo- 
cate player/missile memory anywhere within the para- 
meters of the system's requirements, and Painles$ will 
comply with your choice, but it's vital that it be de- 
termined before Painles$ is called to order. 

The shape of strings to come. 

Line 9010 DIMensions some necessary strings (the 
lengths are optional). Painles$ will draw your player 
shapes from the data stored in the strings P0$, Pl$, 
P2$, P3$, respectively (player 0, etc.). Why? So you 
can change the shape of any player at any time with 
a simple equate. P0$ = SM1LE$ will change player 
from his original design to whatever shape is stored 
in SMILE$ instantaneously! 

Lines 9015 to 9031 define these necessary player 
shapes. P0$ and friends must be DIMensioned to at 
least 1 and must be filled, even if only with Os. Pain- 
Ies$ draws its data from only these four strings. If you 
want to start with a short player, only to convert him 
to a longer player later on, DIM these strings to the 
maximum length you expect to use and fill the extra 
with Os (not spaces! -CNTRL-COMMA or the " " 
are 0). 

Lines 9040 through 9075, though not mandatory 
(Painles$ doesn't need them to operate), are very use- 
ful. The first lines of this group set variables to the 
locations used by your program to communicate with 
Painles$ (Line 9040) and some of the hardware regis- 
ters that deal with player/missile graphics (Line 9045). 

The lines following are icing on the cake. Line 9050 
DIMensions the strings used to hold additional play- 
er shapes defined in Lines 9055 to 9070. P0HOLD$ 
and its brothers are the strings in which we store our 
original player shapes. 

These are not necessary, hut remember, when you 
change shapes by P0$ = SM1LE$, the original shape 
data is lost. If you want to use the Painles$' shape- 
changing capabilities, P0$ and family should be con- 
sidered temporary data storage, at best. You must pro- 
vide a means of storing shapes you don't want lost. 
P0HOLD$ (etc.) provides that means for TAG, and 
Line 9075 fills them with the original design. 

The only lines in this group that Painles$ needs for 
its operation are 9005 to 9031. The rest of the 9000 
series is optional, but can serve a purpose. 

Lines lOOOO and beyond should not be changed in 
any way. When you've typed in TAG (and I recom- 
mend that you do so, to see how Painles$ works), you 
can delete any unnecessary lines and LIST Lines 9000 
to 10320 to any device. Painles$ will then be easily 



available to use in a game of your own design, with 
ample space for your personal tailoring. 

Setting the table. 

Lines 10000 to 10041 set up a data table in the cas- 
sette buffer. This table is used by Painles$ to com- 
municate with your program. Though the values you 
place in these lines will change, the format should re- 
main as presented (even the REMs are useful). 

Bear in mind as you read that the locations men- 
tioned here (1024 to 1075) are only half of the neces- 
sary data table. Locations 1076 to 1104 are used by 
Painles$ for its own purposes, and you shouldn't go 
poking around in them. 

And, yes, while Painles$ is active, cassette I/O of 
any kind must be avoided. If it's attempted, your Atari 
will go into a deep slumber that even a SYSTEM RE- 
SET will not disturb. If you're writing a program and 
wish to save it onto cassette, press SYSTEM RESET 
to disable Painles$, perform an LPRINT statement 
(printer or no printer), and then SAVE your program. 
Disk and printer I/O, though they'll cause your play- 
ers' motion to hesitate, work just fine. 

Get into position. 

Line 10022 contains the initial horizontal positions 
of players to 3, respectively. When Painles$ is ac- 
tivated, your players will initially be displayed in the 
positions declared here. Note that these values are 
read into locations 1024 to 1027, which are called 
XPOS. 

These are the only locations that will change a play- 
er's horizontal position. POKEing the hardware regis- 
ters (HPOSPO or 53248-51) will have little effect. 
XPOS locations should be considered shadow regis- 
ters, because that's exactly what they are. Painles$ 
makes them such because it is a VBI routine. Use 
XPOS to change the horizontal positions of your play- 
ers with POKEs, not the hardware. 

YPOS works similarly to XPOS. Players will be dis- 
played first in the positions (vertically) that are de- 
clared in Line 10024. The corresponding locations 
that can be POKEd to change a player's vertical po- 
sition are 1028 to 1031, respectively. There are no ver- 
tical position hardware registers, so it is obvious that 
only these will affect vertical position. 

If you're using the stick for a particular player's mo- 
tion, XPOS and YPOS will take care of themselves, 
and you needn't bother with them (except in the spe- 
cial situations discussed in the "Limits" section of this 
article). The simplest method that can be used to ad- 
dress these locations is to set variables that correspond 
with those affecting player (see Line 9040). Then, 
if you want to move player 3, say, use: 

POKE KP05+3,9e:P0KE YP05+3,40 

It's that simple! 

Four sticks? 

I know, you're saying, "So what do 1 have to do, 
have three friends around to move the other players?" 
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Atari XL owners must be bewildered as they search 
for the "other" two stick ports and thumb through 
their manuals with a puzzled look. 

No, you needn't hire three stick jockeys. With Pain- 
les$, you can turn unused sticks off or you can lock 
them in any position! STKLCK, short for stick lock, 
indicates locations 1032 to 1035. These correspond 
to the stick ports on the front of your 400/800 (1 to 
4) or the STICK(0'3) command in BASIC. 

Location 1032 is STICK (0) or port 1, the others fol- 
lowing in respective order. POKE STKLCK with any 
number above 15, and Painles$ will read the stick 
plugged into port 1, moving player accordingly. 
POKE STKLCK with any legitimate STICK (0) value 
(see Figure 1), and Painles$ will respond as if there 
was a stick plugged into port 1 and held in that posi- 
tion, even if the stick is still in your drawer! If a stick 
is plugged into port I, it will not be responded to. 

POKE STKLCK with any value below 5, or with 
8, 12 or 15, and the stick in port 1 will be effectively 
turned off. If you check Figure 1, you will see that 
these are not legitimate STICK(O) values (with the 
exception of 15, which is neutral, or centered). This 
works, respectively, with the other ports and locations 
1033, 1034 and 1035. The starting STKLCK values 
are set by Line 10026. Notice that TAG starts with 
all sticks turned off (all zeroes), but you can start any 
way you like. Some easy ones to remember are: POKE 
STKLCK,20 (STICK on); POKE STKLCK+1,0 
(STICK 1 off); POKE STKLCK+2,6 (player 2 moves 
diagonally up and to the right); POKE STKLCK+3,9 
(player 3 moves down and to the left); ad infinitum. 
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Figure 1. 

Limits. 

Remember my mentioning that the sticks will move 
players only within your set limits? These limits can 
range from to 255, and can be changed any time 
you wish, with POKEs. Lines 10027 to 10034 set the 
initial limits. 

Pay no particular attention to the values in the 
DATA statements, as they are peculiar to the TAG 
game (double-line resolution, too). Pay close atten- 
tion, however, to the locations stated in the REMs. 
We'll discuss each in turn, starting at the top. 

The values in TOP are where your respective play- 
ers will stop when moving upward in response to a 
STICK or a STKLCK. Locations 1036 to 1039 hold 
the top limits. For single-line resolution, a top limit 



of 32 will stop your player at your Atari's text border. 
For double-line, a top limit of 16 will do the same. 

A limit of 50 restricts a double-line player to move- 
ment in only the lower half of the screen (100 for 
single-line). A top limit of 1 will let a short player 
go out of sight at the top of the screen. Notice I said 
"1." top limit locations serve a dual purpose. If you 
set TOP to for any player, that player will ignore 
all limits. Setting TOP to turns off the limit feature 
of Painles$; it must be set to at least 1 for its respec- 
tive player to obey any limits. 

BOTTOM limits are held in 1040-1043. The corre- 
lation here for the two resolutions is akin to TOP, 
but there are certain differences. BOTTOM is 224 for 
single-line resolution and 112 for double. Painles$ 
draws your players from the top down, so you must 
consider your player's overall length in determining 
bottom limits. Setting strictly a text border limit will 
allow extension of a player beyond the border by his 
length. 

Extra care must be used in setting BOTTOM for 
double liners. An extremely long player may extend 
into his neighbor's memory area, and you'll find that 
he takes on the color of his neighbor and responds 
to that horizontal positioning, as well. Painles$ has 
a built-in safeguard to ensure that your entire double 
liner will not inadvertently be dumped into the ad- 
jacent area, but this only applies to his first (top) byte. 
Any bytes of his length will still reach into no-man's- 
land. BOTTOM for double liners should not exceed 
128 (more on this later). 

The LEFT and RIGHT text border limits are the 
same tor single- or double-line resolution. The limit 
for LEFT (1044 to 1047) is 48 for a player's left side 
. . . Period! The text border limit of RIGHT (1048 to 
1051) for a normal width player is 200. 

A player's horizontal position is read from his left 
side, so right's limit is actually 208 (a player is 8 
bits wide). This limit changes as a player's width is 
set, by POKEing SIZEPO or 53256-9. If a player is 
set to double or quadruple width with the size regis- 
ters, he does not expand symmetrically, but to the 
right — so set your limits accordingly. 

All of these limits will only affect players moved 
by the STICK or STKLCK features of Painles$. The 
program also affords you the luxury of POKEing any 
position to any player through your program. This 
can create some interesting anomalies. 

For example: say you have set TOP to 100 for a sin- 
gle liner, and "border" values for the other limits. His 
movement in response to STICK or STKLCK is now 
restricted to a window in the lower half of the screen. 
Everything is copacetic, until your program POKEs 
him to a vertical position of 50. That's beyond his 
upper limit! What happens? He's within RIGHT and 
LEFT limits, so he'll respond to the stick and move 
right or left. He's out of range for up movement, but 
this also precludes any down movement, so he's stuck. 
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He will only move right or left if the stick is held 
in a diagonal, right or left position. He will not move 
at all if the stick is up, down or centered. If you now 
POKE him beyond his LEFT or RIGHT limits, he'll 
be frozen in his tracks! 

The only way to recover from this (and have him 
respond to the stick) is to POKE him back within his 
limits, or POKE his TOP to 0, as noted. 

Under wraps. 

A limited player moved by the stick will not wrap 
around to appear on the other side of the screen. If 
you do want your players to wrap, you must set TOP 
to 0, or your program must wrap them on its own. 

This is accomplished (for player 0) by: 
IF PEEKtHP05}>250 THEN POKE XP0S,5 

There are exceptions to this rule, however. You will 
recall that a double liner's territory is only 128 bytes 
long. As I mentioned, Painles$ takes care that he's 
not inadvertently dumped into his neighbor's area. 
Consequently, if BOTTOM for a double liner is set 
to more than 128, and your program— with POKE 
or STICK — takes him beyond 128, Painles$ subtracts 
128 from the called-for position, displaying him ac- 
cordingly. If you POKE a double liner to 220, for in- 
stance, he will be wrapped and displayed at a vertical 



position of 92 (YPOS will still hold the 220, hou- 
ever). Another exception to the limit rule is discussed 
below. 

Speed. 

Lines 10037 to 10040 are. . .Wait a minute. What 
about Lines 10035 and 10036, you ask? Well, I was 
going to skip them for now, but a short discussion 
won't hurt. 

It's simple. SKIP is location 1052. POKE SKIPO and 
Painles$ will read the STICKs and draw your players 
every VBI period. POKE SKIP with anything but 0, 
and Painles$ will take a break, effectively freezing all 
player motion. Your players will be displayed in the 
last positions — and with the shapes they had before 
you told Painles$ to skip itself. The program starts 
off in a SKIP state, irrespective of the value you place 
here; your program must turn Painles$ on (see Line 
10320). 

Now, back to Lines 10037 to 10040. This is where 
you set the speed of your players' response to sticks. 
When Painles$ interprets a STICK or "legitimate" 
STKLCK (refer to Figure 1), it reads a number from 
5 to 15. If a movement value is returned, Painles$ 
subtracts 5 from it, yielding through 9. 

Using this remainder as an offset into the XINC 
locations, Painles$ then adds the appropriate XINC 
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A DISK DRIVE 
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WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE 
THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER 

WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER 

HAPPY BACKUP — Easy to use backup of even the most heavily protected disks 

HAPPY COMPACTOR — Combines 8 disks into 1 disk with a menu 

WARP SPEED DOS — Improved Atari DOS 2. OS with WARP SPEED reading & writing 

SECTOR COPIER — Whole disk read, write and verify in 105 seconds 

1050 ENHANCEMENT — Supports single, 1050 double, and true double density 

810 ENHANCEMENT — Supports single density 

SPECIAL SUGGESTED RETAIL PRICE- Get the HAPPY ENHANCEMENT 810 or 1050 version with the HAPPY BACKUP PROGRAM, 
plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS, plus the 
HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350.00 value for only $249.95, for a limited time only! 
Price includes shipping by air mail to U.S.A. and Canada. Foreign orders add $10.00 and send an international money order payable through a 
USA bank California orders add $16.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 
2-3 weeks to clear Cash COD available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other 
ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEMENT. 
Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers 
now throughout the world, call for the number of the dealer closest to you . ATARI is a registered irademark of Atmi Compuier Inc. 

HAPPY COMPUTERS, INC. • P.O.Box 1268 • Morgan Hill, California 95037 • (408)779-3830 
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byte to the affected player's XPOS. The player's TOP 
is then checked for a "no limit" condition. If TOP 
is non-zero (i.e., limits in effect), the result is com- 
pared to your RIGHT or LEFT settings. If the new 
XPOS is found to be within these limits, it's saved, 
and the player is moved to the new horizontal posi- 
tion. The same takes place with YINC and YPOS, 
with the result compared to your TOP (if non-zero) 
and BOTTOM settings. If all is okay, your player is 
moved to the new vertical position. 

For example: you're using the stick to move a play- 
er diagonally up and to the right. Painles$ reads 6, 
subtracts 5 and now has 1. Location 1057 (XINC+1) 
holds a 1, which is added to the present XPOS. Your 
player is moved one increment to the right. Location 
1067 (YINC+1) holds 255. Adding 255 to the present 
YPOS essentially "subtracts" I. Your player is moved 
one increment up. 

If you want your players to respond only to the four 
cardinal directions, fill the proper XINC and YINC 
bytes with Os. If you want your players to move at 
double speed, make all the Is into 2s and all the 255s 
into 254s (i.e., +2 or —2). You could conceivably have 
your players moving faster up than down, or faster 
right than left, depending on what values have been 
placed in these locations. But don't forget to subtract 
5 from the respective STICK values (see Figure 1). 

Do you recall the earlier discussion about wrapping 
players around the screen? The speed you choose will 
affect this phenomenon in the following manner. If 
your limits are set to maximum, meaning and 255 
(except TOP), a speed of more than 1 will allow your 
players to wrap occasionally. If speed is set even faster, 
then wraps will occur at smaller limits proportion- 
ately. Check Lines 200 to 220 for a short subroutine 
to change the speed of play during program run. 

Final preparation. 

Lines 10100 to 10182 hold the actual Painles$ VBI 
routine. The routine is completely relocatable and can 
be stored anywhere. TAG stores the routine in the 
string Painles$. If you want to store it in the wasted 
memory in front of player memory, change Line 10101 
to read: 

leiei TRAP 10160: READ A: POKE PMBAS«2S6 
♦I, A: 1=1+1: GOTO 10101 

There are some other requirements to do this, and 
they'll be covered shortly. 

Lines 10160 to 10182 comprise the machine lan- 
guage setup routine which creates the second half of 
the cassette buffer data table, telling the system that 
we want Painles$ to execute right along with house- 
keeping chores. This routine is also completely relocat- 
able. We read it into page 6 for memory conservation 
only. Once the routine has run, you can overwrite 
page 6 with any data you wish. 

The call to arms. 

Lines 10203 and 10205 are the USR calls that run 



the setup routine and create the remainder of the data 
table. Here's where you must do a little work for Pain- 
Ies$. You use only one of these calls, and they should 
not be changed from their present form. We'll dissect 
them, piecemeal, shortly. Note the REM statements 
that precede each call. 

For single-line resolution, you'd run Line 10203. 
TAG uses double-line resolution, so this call is REMed 
out. It will be ignored. Line 10205 is for double-line 
resolution. This is the call that's made for TAG. 

It won't hurt to type in both lines when you LIST 
Painles$ to use in your own programs. You can then 
REM the one that isn't to be used. This simplifies 
switching from single- to double-line — just delete the 
REM and insert it into the line that you don't want 
to run. If you run with both lines active, Painles$ 
will default to whichever line is listed last. 

Let's examine the calls. They're quite long, but don't 
be intimidated. The setup routine does some minimal 
error trapping for you. If your Atari goes into a SYS- 
TEM RESET condition, you've made an error and 
should examine your call line. We'll go step by step 
through Line 10205, as this is the line used by TAG. 
It reads: 

10205 M=USR(1536,128, CPMBA5»25e}+S12, A 
DRCPOS) ,8,ADR(P1$) ,8, ADR CP2$] ,8, ADR (P3 
S),8,ADRCPAINLE55)) :POKE 559,46 

The first parameter in the call is 1536. This is the 
address at which the setup routine starts. If you've 
decided to locate setup elsewhere in memory, the start- 
ing address goes here in place of 1536. 

The second parameter is 128. This tells Painles$ 
that you've chosen double-line players. If you check 
Line 10203, you can see that this value is a for 
single-line resolution. The setup routine checks to 
see if you have either a or a 128 here. Any other 
value will cause SYSTEM RESET. 

The next parameter tells Painles$ where the start 
of player memory is located. Note that this is not 
the start of player/missile memory, or PMBAS. Your 
total player/missile memory must start at a certain dis- 
tance from the start of player memory (1024 bytes 
for single-line resolution, 512 for double). Setup only 
checks to see that you've located player/missile mem- 
ory on a page boundary, not whether it's located on 
the proper page boundary. 

The next six parameters are identical in each call. 
ADR(Pn$) will tell Painles$ where the string Pn$ re- 
sides in memory Remember that these are the strings 
where shape data is stored for your players, and Pain- 
les$ must know where to find them. These strings 
must be DIMed before the USR call is made, or you'll 
get an ERROR 9. 

The number that follows each ADR(Pn$) is the 
length of the player. It can be any value above and 
needn't be the same for each player. Nor must it be 
the actual length of the Pn$ string, but it ought to 
equal the DIM value for Pn$ in Line 9010. After the 
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setup has been run, Painles$ will draw your players 
to the lengths you've placed here. If your players are 
too short or too long when they appear, you've made 
an error in these values. The setup routine will only 
SYSTEM RESET if you've placed a here. 

The final parameter is the address of Painles$ it- 
self. TAG uses a string, hence the ADR( ) function. 
If you have chosen to locate Painles$ elsewhere, the 
starting address goes here. If you make an error in this 
value, your Atari will lock up, forcing you to COLD- 
START It. 

That pretty well covers the initialization of Pain- 
les$. One more thing. . .setup does a last favor for 
you. It clears each player's memory. If you want other 
shapes in player memory that are not controlled by 
Painles$, insert them after setup has run. As men- 
tioned, setup also sets the SKIP flag. 

The remaining POKEs merely tell the system that 
you want players. The necessary 559 POKEs for reso- 
lution are conveniently set within their matching USR 
call lines. And, finally. Line 10320 turns Painles$ on, 
with a POKE SKIP.O! 

Caveat. 

We've all heard the dentist's classic line, "Now open 
wide — this won't hurt a bit," with justifiable disbelief. 
Painles$ isn't without its price, either. I don't want 



you to get the program up and running, only [o dis- 
cover hidden problems without any warning. 

First of all, VBI time is not free by any means; it's 
merely automatic. What we've done here is set up a 
"USR" call that takes place in every VBI period. 

Also, Painles$ is a long routine. When it is active, 
you'll find that your program will run more slowly 
than usual. Painles$ will cost approximately 1% of 
your processing time per average drawn player byte. 
Just total up all four player lengths and divide by 4. 
It's pretty cheap overall. And remember, if you have 
a routine that doesn't require player moves or shape 
changes, POKE SKIP to a positive value, so that Pain- 
les$ costs nothing. I've found that, if your four play- 
ers total more than 80 bytes in length, players 2 and 
3 will be drawn in conjunction with the screen. This 
causes them to do funny things when they're near the 
top. You have to go to about 100 total player bytes 
(each player 25 bytes long) for them to invade text 
border limits, though. 

Due to the relocatable nature of Painles$, you can- 
not experiment with it in immediate mode. If you hit 
the BREAK key and attempt to enter a program line, 
whether immediate or deferred, say good-night to your 
Atari. A good rule to follow is: if your players are 

(continued on next page) 
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visible, don't! To make program changes, press SYS- 
TEM RESET. 

One final problem to consider: if you are detecting 
collisions from BASIC, you may find that BASIC will 
fall behind when your speeds are high. Players will 
then overrun certain areas before a collision is reacted 
to. If you come up with a viable solution to this prob- 
lem, send it to ANALOG Computing! 

These problems can't be avoided, but I think you'll 
agree that they seem insignificant when compared 
with the power that Painles$ offers. 

Alternatives. 

Should you wish to change some of Painles$' fea- 
tures, here are a few alternatives. 

If you only want to read one or two sticks, check 
Line 10118 and the REM statement above it. The 4 
with an asterisk above it is the number of sticks read 
by Painles$. You can change this to the number you 
want (1 to 4 only). If you place a 2 there, STICK(O) 
and STICK(l) (ports 1 and 2) alone will be read. You 
must then control players 2 and 3 with POKEs from 
your prograrn. The "shadow" characteristics of the 
XPOS registers for these players will still be in effect, 
YPOS will respond to POKEs in the normal way, and 
Painles$ will still change their shapes. It's easier to 
simply turn off the unused sticks through STCKLCK, 
however, and that's what I recommend. 

If you only want one or two players active, the 4 
in Line 10134 (with the asterisk) is the number of 
players that Painles$ will move. If a 2 is put here, 
Painles$ will only draw and move players and 1. 
You must draw and move the others. The "shadow" 
characteristics of XPOS will be disabled for the elimi- 
nated players, and YPOS will do nothing. You are now 
responsible for the motion of the eliminated players, 
nor will Painles$ change their shapes for you. 

Painles$, by design, carefully avoids the page lo- 
cations that are used by most player/missile mover rou- 
tines (like Tom Hudson's). You could easily incorporate 
one into your program. A player still under Painles$' 
control should not be moved by these other means. 
Trying it will only clutter up his memory area with 
trash, and he'll just move back to where Painles$ has 
him located, anyway. 

Notes on the XLs. 

Painles$ will work quite well on XLs, with a few 
qualifications. The first and most obvious problem is 
that the XLs have only two stick ports. Painles$ reads 
all four sticks, working well if sticks 2 and 3 are off 
or locked. If you try to run Painles$ with all sticks 
in an unlocked condition (i.e., ask the program to read 
nonexistent sticks), a very interesting thing happens. 
Player 2 will mimic the movements of player 0, and 
player 3 will mirror player 1. 

If you're an XL owner who wants to use Painles$, 
you might try the changes mentioned in the previ- 
ous paragraph, or keep the "other" sticks locked, or— 



think of it! — create "stacked" or multi-colored play- 
ers with the "mirror" effect. It all depends on how 
you set their initial positions. Be creative! 

Up and running. 

"Right. Now that my eyes are blurred from read- 
ing all of this, how do I make it work.'" 

The TAG game gives a few hints as to how you can 
communicate with Painles$. The game is very sim- 
ple, with a main loop only eight lines long. Player 
is "it." He must avoid contact with any other play- 
er. If he's touched, he explodes. . .game over. He can 
score points only if he is moving; standing still gets 
him nothing. If he is into the "safe zone" (border), 
his score is reduced by two points each time through 
the loop. . .but the other players can't reach him. 

The game, though simple, is for one to four play- 
ers. With four sticks, four of you can play simultane- 
ously. Port 1 controls player 0, etc. If you only have 
one or two players, the computer controls the unused 
sticks. Whoever "tags" player should then take over 
stick 1 and see if he or she can beat the score. 

Tag, line by line. 

Line 15 shuts off all four sticks. 

Line 20 waits for the number of players play- 
ing (XL owners should change the 4s to 2s in 
this line). Note that Line 20 also sets the SKIP 
flag (we don't want any movement while wait- 
ing for input). 

Line 25 contains the "quick" variable, a flag 
used to determine when we will increase speed. 

Line 30 gets the starting speed of your choice. 

Line 35 will GOSUB 200 if it is not already 
in effect. 

Line 40 concerns "attract," which I will des- 
cribe later. 

Line 45 turns on only sticks to be used and 
tells Painles$ we're ready to move players. 

Line 50 begins the main game loop, which is 
contained in Lines 50 to 85. Line 50 checks to 
see if player is touching "safe" and reduces the 
score accordingly. 

Line 55 checks for movement and increases 
the score. 

Line 60, if we have less than four people play- 
ing, will POKE the STKLCKs of all players not 
under human control with random "legitimate" 
STICK(O) values, giving these players motion. 

Line 65 is used for one-player games. It will 
place the current direction of player O's motion 
into the STKLCK for player 3. This makes play- 
er 3 a sort of "nervous shadow" of player 0, add- 
ing challenge to a single-player game. 

Line 70 checks for START order during the 
attract run. 

Line 75 sees if we're ready to increase speed. 

Line 80 prints the score and skips player col- 
lisions if attract is in effect and speed is not at 
maximum. 
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Line 82 checks to see whether or not player 
has been tagged; if so, exit. 

Lines 90 to 105 handle the explosion. First, 
players 1 through 3 are changed to smile faces. 
In the FOR/NEXT loop, the explosion is pro- 
duced rather simply. Random 8 -character sub- 
strings are chosen from the Painles$ string and 
dumped into P0$ (try changing this to sequen- 
tial substrings, using EXPLODE = EXPLODE + 1 
— the effect is quite interesting). Player O's color 
is randomized to make it flash, and the SIZEPO 
register is POKEd to make him shrink or swell. ■ 
The hardware HPOSPO is POKEd to the left of 
the original position, to make player appear 
to expand to the left, as well. 

Line 110 then resets player to normal size, 
giving him back his original color. The timer is 
set, and all players are given "play" shapes to 
show which one tagged P0$. 

Lines 120 to 135 wait for input to restart the 
game. 

Line 130 will remain inactive for about 20 se- 
conds, then it will cause a crude "attract" to be- 
gin. In this attract mode, the players retain their 
title shapes (T$, A$, G$), and all are given ran- 
dom legitimate STKLCKS until either maximum 
speed is attained (Line 80) or you press START 
(Line 70). 

Line 140, in attract or restart, will reset all 
startup values by rereading the original DATA 
into the table from Lines 10022 to 10040. 

Line 200 increases the speed routine. 

Lines 300 and 320 change player shapes. 

TAG is really rather simple and was meant to be 
so, because it merely demonstrates the powers of Pain- 
les$. Some of TAG's lines are redundant, but have 
been included for demonstrative purposes, too. 

A bonus! 

As mentioned, Painles$ creates shadow registers 
for each of the four hardware "horizontal position 
registers" affecting players. These are updated every 
VBl, just like the systems color registers. Give you 
any ideas? 

Listing 2 is a short routine that creates a dis- 
play list interrupt (DLI) below the bottom limit 
of player 3. After you have TAG up and running, 
type in these few lines and see how a DLI will 
affect the display. You can, conceivably, have up 
to eight moving player shapes on the screen at 
one time with this shadow feature. Try it. 

Listing 3 is a simple debugger to use in exper- 
imenting with limits and positions. Type in this 
short routine while writing your game. Check 
Line 1. Remove the REM, and the debugger will 
be ignored. Retype it, and the debugger will be 
activated. Here's a method you can use for de- 
bugging. Draw your playfield and set up Pain- 



les$ with player shapes, etc. (all limits should, 
at first, be set to maximum and all sticks un- 
locked). Then get a grease pencil (or soapstick) 
and trace the significant areas (such as playfield 
hazards or limits) onto the glass of the screen. 
Replace the REM and RUN. The positions of 
all four players are displayed, and you can move 
each with the stick, recording playfield coordi- 
nates (by player standards) and limits according 
to your tracings. Delete the REM and RUN your 
game. It works! 

Some final words (at last). 

At the risk of redundancy, I wish to repeat that Pain- 
les$ consists of Lines 9000 through 9031 and all lines 
following 10000 in Listing 1. Any other lines in this 
listing are unnecessary but convenient, or are peculiar 
to TAG. Painles$ will cost a bit less than 2K to code 
in sans REMs. 

I've been deliberately arcane about player/missile re- 
quirements of the system, but I feel that the informa- 
tion provided here will enable anyone (with at least 
a moderate understanding of BASIC) to take advan- 
tage of what Painles$ has to offer. Coupled with a 
thorough knowledge of the Atari's unique OS (play- 
er/missile graphics in particular), the Painles$ Play- 
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er Mover becomes a powerful tool, limited only by 
your imagination. 

If you have any problems, refer to the text and 
memory map for possible solutions or write to me (send 
a self-addressed, stamped envelope): 

Chet Walters 

c/o NON-STANDARD MAGIC 

P.O. Box 45 

Girard, OH 44420 
I'll try to answer any questions. And don't forget: send 
your game ideas to ANALOG Computing, P.O. Box 
23, Worcester, MA 01610. D 





Painles$ memory map. 


Label 


Location 


Function 


XPOS 


1024-27 


Horizontal position; shadows for 
hardware; can be POKEd. 


YPOS 


1028-31 


Vertical position; can be 
POKEd. 


STKLCK 


1032-35 


POKE above 16 to turn sticks 
on; POKE below 5 to turn 
sticks off; POKE with "legiti- 
mate" STIGK{0) value to lock. 


TOP 


1036-39 


Entering here disables all 
limits for respective player; 1 or 
more sets upper limit for player 
motion in response to STIGK 
or STKLGK. Text border is 16 
for double line; 32 for single. 


BOTTOM 


1040-43 


Lower limit for player motion 
by stick. Text border is 112 for 
double; 224 for single (player 
length should be subtracted). 


LEFT 


1044-47 


Left limit for player motion by 
stick. Text border is 48 for both 
resolutions. 


RIGHT 


1048-51 


Right limit for player motion by 
stick. Varies with player width, 
but 200 is normal width (see 
text). 


SKIP 


1052 


POKEd with a value, and Pain- 
Ies$ will not execute motion or 
shape changes. POKEd with 0, 
and Painles$ will execute full 
functions. Used to save time or 
freeze player motion (see text). 


XING 


1056-65 


Increment that player will move 
horizontally in response to 
stick. Offset is determined by 
subtracting 5 from the 
STICK(O) value In effect. 


YINC 


1066-75 


As above, but for vertical mo- 
tion. Speed can be doubled by 
replacing Is with 2s and 255s 
with 254s in XING and YING. 


Note: never POKE locations 1076-1104— ever.' 



Listing 1. 



3 REM MMMMMlilCKMlCKKKKlCKlCKKlCICKKKKim 

4 REM * A SIMPLE GAME OF TAG « 

5 REM « DEMONSTRATING MAYS TO « 

6 REM » COMMUNICATE HITH THE « 

7 REM « PAINLESS PLAYER MOVER « 

8 REM * by CHET WALTERS 8/84 » 

9 REM mCKMKMMMlCMICKMKKKMKKlCMKMMKlCM 

10 GRAPHICS 3:P0KE 7ie,8:P0KE 752,1:? 
:? , "INITIALIZING" :GOSUB 90e0:G0SUB 30 
8 

14 REM 

15 FOR 1=8 TO 3:P0KE STKLCK+1,8 :NEKT I 
:IF ATTRACT THEN PLYRS=8:G0T0 35 

28 TRAP 2e:P8KE SKIP.l:? CHRSC125J:? " 
ENTER NUMBER OF PLAYERS" ;: INPUT PLYRS: 
IF PLYRS<1 OR PLYRS>4 THEN 20 
25 COLOR l:PLOT e,8:DRANT0 39,8:DRAMT0 
39,19:l>RAMT0 e,19:DRAHT0 e,l:0UICK=4e 



YOUR GOME GOES HERE 



The author would like to thank Perfect Com- 
puters of Niles, Ohio, for valuable assistance in 
the creation of this article. 



38 TRAP 38:? CHR5(125}:? " ENTER SPEE 
D tl TO 4J";:INPUT 5PD:SPEED=SPD:IF SP 
EED<i OR SPEED>4 THEN 30 
35 TRAP 48888: IF PEEK f 1056) OSPEED THE 
N GOSUB 288 

48 IF NOT ATTRACT THEN GOSUB 320 
45 FOR 1=8 Te PLYRS-l:POKE STKLCK+1,28 
:NEKT I:POKE SKIP,8:REM TURN ON STICKS 
AND PLAYERS 

48 REM 

49 REM «« MAIN GAME LOOP «« 

58 IF PEEKCPOPF) THEN SKR=SKR-2 : SOUND 

8,108,18,8:P0KE HITCLR, : GOTO 60 

55 IF STICK (0)015 THEN SKR=SKR+2+SPEE 

D:SOUND 8,5,18,18 

68 IF PLYRS<4 THEN FOR 1=3 TO PLYRS ST 

EP -l:POKE STKLCK+I,RNDCI)«ie+5:NE}<T I 

:REM RANDOM PLAYER MOVEMENT 

65 IF PLYRS=1 THEN POKE STKLCK+3, STICK 

(8): REM ««CREATE "SHADOW"*** 

78 IF ATTRACT THEN SKR=SKR+7:IF PEEKC5 

3279)=6 THEN ATTRACT=8 : STRT=15 : GOTO 12 

8 

75 SOUND 0,8,e,8:IF SKRXlUICK THEM SPE 

ED=5PEED+1 : QUICK=0UICK+388 : GOSUB 280 

88 ? CHR$C125):? "SCORE "JSKR:" ",,"S 

PEED "; SPEED: IF ATTRACT THEN IF SPEED< 

4 THEN 58 

82 IF PEEK(P8PL} THEN FOR 1=8 TB 3:P0K 

E STKLCK^I,e:NEXT I:POKE HTCLR,8:G0T0 

98 

85 GOTO 58 

88 REM 

89 REM ««CHANGE SHAPES AND EXPLODE** 
98 P1$=SMILES : P2S=SMILE$ : P3S=SMILES 

95 F8R 1=1 TB 50 :EXPLODE=INT (RND (I)M16 

0) +1 : P8$=PAINLES$ CEXPLODE, EXPLODE+8) 

188 SOUND 8, EXPLODE, 8, 8: POKE 7e4,EXPL0 

DE : HOBBLE=RND CI)*3 

185 POKE HP0SPe,PEEKCXP0S)-N0BBLE*3:P0 

KE SIZEP8,M0BBLE:NEXT I : SOUND 8,0,8,8 

118 POKE SIZEP0,8:P0KE 704,48:P0KE 19, 

0:POKE 28,8: GOSUB 328 

115 ? CHRSC125) : " ttf-trUIA'Jl-i YOUR SCOR 

E ";SKR:? "PRESS START FOR MORE PLAYER 

5":? "PRESS TRIGGER FOR SAME PLAY" 

128 IF PEEK (53279) =6 THEN STRT=15:ATTR 

ACT=e:GOTO 140 

125 IF STRIG(0)=0 THEN STRT=35- (28»ATT 

RACT) :ATTRACT=0:GOTO 148 

138 IF PEEK(19)=5-ATTRACT«3 THEN ATTRA 

CT=l:STRT=15:SPD=l:G0T0 140 

135 GOTO 128 

148 GBSUB 3e8:REST8RE 18822: FOR 1=1024 

TO 1875:READ A:POKE I,A:NEXT I:GOSUB 
328-(28«ATTRACT) 

145 ? "V:SPEED=SPD:0UICK=4e8:SKR=8:P0 
KE HITCLR, 0:POKE 764,255:G0T0 STRT 

198 REM 

199 REM iHHflNCREASE SPEED***** 

288 SETCOLOR O, PEEK (28) , 6 : IF PEEK (1056 
)=4 THEN RETURN :REM SPEED LIMIT OF 4 
285 FBR 1=1856 TO 1075 : IF NOT PEEK (I) 

THEN 220 
218 IF PEEKdXlB THEN POKE I, SPEED 
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215 IF PEEKCI)>20e THEN POKE I,25e-5PE 

ED 

220 SOUND 0,PEEK(I),ie,8:NEXT I:SOUND 

e,8,8,0:RETURN 

298 REH 

233 REM »««5ET SHAPES FOR TITLE*** 

see SETCOLOR e.PEEKC5377e),6:P85=SNILE 

5 : P1S=T$ : P2S=ftS : P35=gI : RETURN 

318 REH 

319 REM ***RESET PLAYERS TO NORMAL*** 
328 Pe$=PeHLDS : P1$=P1HLD$ : P2$=P2HLD$ : P 
3$=P3HLD$: RETURN 

8999 REM 

9080 REM liCTnW^iaiJi;M;l!B5M;» 

9081 REM 

9082 REM *THESE ARE NECESSARY LINES* 
9003 REM 

9084 REM *FIRST DETERMINE P/M ICM* 
9005 PNBAS=PEEKCie6)-16 

9008 REM 

9009 REM *PLAYER DATA STRINGS* 

9010 DIM P0$f8),Pl$C8},P2Sf8J,P3$C8),P 
AINLES$C205) 

9013 REM 

9014 REM *«DEFINE PLAYER SHAPES** 

9015 RESTORE 9016 :FOR 1=1 TO 8:READ A: 
P0$(I}=CHRSCA) :NEXT I: POKE 704,40 

9016 DATA 0,127,183,183,183,103,127,12 
7 

9020 FOR 1=1 TO 8 -.READ A : Pl$ (I)=CHRS (A 
):NEXT I:POKE 706,148 

9021 DATA 0,14,28,28,28,12,12,62 

9025 FOR 1=1 TO 8:READ A:P2$ CI)=CHRSCA 
} :NEXT I:POKE 705,202 

9026 DATA 0,127,115,3,127,79,64,127 

9838 FOR 1=1 TO 8:READ A:P3$CI)=CHRSCA 
):NEXT I: POKE 707,70 

9031 DATA 0,127,79,31,14,103,127,62 

9032 REM 

9033 REM **FOLLOMING LINES OPTIONAL** 

9034 REM 

9839 REM »*» PAINLE5$ REGISTERS *** 
9040 XP0S=ie24 : YP0S=1028 : STKLCK=ie32 : S 
KIP=ie52 

9044 REM *** SYSTEM REGISTERS «** 

9045 HP0SP0=53248 : SIZEP0=53256 : P0PF=53 
252 : PePL=532eO : HITCLR=53278 

9848 REM 

9849 REM **ADDITIONAL PLAYER SHAPES** 

9850 DIM T$(8}.A$(8),GSC8),SMILESC8),P 
8HLD$ (8) , PIHLDS CS) , P2HLD$ 18) , P3HLD$ €8) 
9855 FOR 1=1 TO 8: READ A:SHILE$ (I)=CHR 
$CA):NEXT I:DATA 129,126,98,255,189,19 
5,126,68 

9868 FOR 1=1 TO 8: READ A:T$ CI}=CHRS CA) 

:NEXT I:DATA 255,255,189,68,68,68,68,1 

26 

9865 FOR 1=1 TO 8: READ A: A$ CI)=CHR$CA} 

.■NEXT I:DATA 24,68,126,231,231,255,231 

,231 

9870 FOR 1=1 TO 8: READ A:G$ CI)=CHR$CA) 

:NEXT IIDATA 127,255,255,224,239,231,2 

55,127 

9874 REM **STORE SHAPE DATA** 

9075 P8HLD$=P8S : P1HLD$=P1$ : P2HLDS=P2$ : 

P3HLD$=P3S. 

10008 REM 

18801 REM 

10828 RESTORE 10022: FOR 1=1024 TO 1075 

.■READ A: POKE I. A: NEXT I 

18821 REH C 

10022 DATA 90,110,138,150 

18823 REH 

18824 DATA 28.58.68. 78 

18825 REH 
18026 DATA3j 

18827 REH 

18828 DATA 16.25,25,25 

18829 REH 

18838 DATA 88. 79.79.79 
16031 REH 
10832 DATA 48.57.57.57 

18833 REH 

18834 DATA 208.191 .191.191 
10035 REH 
10836 DATA 0.0.8.8 
18837 REH 



CREOTE OUR UBLftNK INTERRUPT 
STRING CALLED PAINLESS 



NOW SET UP DATA TABLE 
LOCATED IN CASS. BUFFER 



TO 1027=KP05 



TO ie31=YP05 



TO ie35=5TKLCK 



. O . U . B 



TO ie39=T0P/N0 LIMIT 



TO ie43=B0TT0M LIMIT 



TO ie47=LEFT LIMIT 



TO ie51=RIGHT LIMIT 



!=5KIP THREE SPARES 



TO ie65=HINC 



10038 DATA 1.1.1.0.255.255. 255.0.0.0 

10039 REH nni*f^lBlilvViEEE^SVTTN 

10040 DATA 1,255,0,0,1,255,0,0,1,255 

10041 REH 

10050 REH 

10051 REH 

10100 RESTORE 10102:1=0 

10101 TRAP 10160: 1=1+1: READ A: PAINLESS 
(I)=CHR$fA} :GOTO 10181 

10102 DATA 173,28,4,240,3,76,98,228,21 
6,162,0,189 

10104 DATA 8,4,281,16,144,3,189,128,2, 

281,15,240 

10106 DATA 74,56,233,5,48,69,168,185,3 

2 4 24 125 

18188 DATA 8,4,141,78,4,189,12,4,248,1 

3,173,78 

18118 DATA 4,221,28,4,144,11,221,24,4, 

176, 6, 173 

18112 DATA 78,4,157,8,4,185,42,4,24,12 

5,4,4 

18114 DATA 141,78,4,189,12,4,248,13,17 

3,78,4,221 

18116 DATA 12,4,144,11,221,16,4,176,6, 
173,78,4 

18117 REH tl OF STICKS * 

10118 DATA 157,4,4,232,224,4,288,163,1 
62,0,142,76 

10120 DATA 4,189,56,4,133,8,189,68,4,1 

33,1,189 

18122 DATA 64,4,133,2,189,68,4,133,3,1 

89,8,4 

18124 DATA 157,8,288,188,52,4,189,72,4 

,170,169,0 

10126 DATA 141,77,4,145,8,288,282,208, 

258,174,76,4 

18128 DATA 189,4,4,45,79,4,157,52,4,14 

1,78,4 

18138 DATA 189,72,4,178,172,77,4,177,2 

,172,78,4 

18132 DATA 145,8,238,77,4,238,78,4,282 
,288,237,238 

18133 REM tt OF PLAYERS * 

18134 DATA 76,4,174,76,4,224,4,288,164 
,76,98,228,8,-1 

18135 REH 

18158 REH ■;l*!l>»i;M5ii*ilM>T-llM 

18168 RESTORE 10162: FOR 1=1536 TO 1646 

:READ A:POKE I,A:NEXT I 

18162 DATA 216,184,281,11,248,3,76,116 

,228,184 

18164 DATA 184,141,79,4,133,2,248,10,2 

01,128 

18166 DATA 288,248,169,8,133,3,240,4,1 

69,1 

10168 DATA 133,3,184,133,1,104,133,0,2 

08,222 

18178 DATA 170,240,13,165,0,24,101,2,1 

33,0 

10172 DATA 165,1,101,3,133,1,165,0,157 

,56 

10174 DATA 4,165,1,157,68,4,172,79,4,1 

69 

18176 DATA 8,145,0,136,288,251,184,157 

,68,4 

18178 DATA 184,157,64,4,184,184,248,1? 

4,157,72 

18188 DATA 4,232,224,4,288,283,142,28, 

4,286 

18182 DATA 79,4,104,170,104,168,169,7, 

76,92,228 

10200 REH 

10202 REH 

10203 REH X=USR(1536,0, CPHBAS*256}l^ie2 
4 , ADR CPe$) , 8 , ADR CP1$) , 8 , ADR tP2$) , 8 , ADR 
CP3$) , 8 , AD R CPAINLESS? i ; POKE 559 , 62 

18204 REH iaii;MmiimN5«wV:iM;i*^inliimKl 
10205 X=USR C1536 .128 , CPHBAS*2563 +512 , A 
DR CP8$) , 8 , ADR f P15) , 8 , ADR CP2$) , 8 , ADR CP3 
S),8,ADRCPAINLESS]}:P0KE 559,46 
10288 REH 

18281 REH PAGE SIX AND THE USUAL 

18282 REH PAGE ZERO POINTERS ARE 

10283 REH ALL NOH AVAILABLE FOR 

10284 REH YOUR EXCLUSIVE USE!!!!! 

18285 REH 

18286 REH YOUR PAGE SIX ROUTINES 



CALL PAIHLE5S TO ATTENTION 
FOR SINGLE LINE RESOLUTION 
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18287 REH CAN BE READ IN HERE!!! 

18288 REM 

10300 REH ■iiii;i:Mii:way!i-H;i5J 

10310 POKE 5427?, PMBA5: POKE 623,33:P0K 
E 53277,3 

10311 REH 
10315 REM 
10320 POKE 5KIP,0:RETURN 



TURN ON PAINLESS AND GO! ! 



CHECKSUM DATA. 

(see page 10) 

3 DATA 259,986,448,34^,355,264,271,656 

,419,549,928,978,686,267,555,7970 

45 DATA 98,281,500,121,353,58,542,113, 

641 , 648 , 224 , 634 , 289 , 946 , 579 , 6027 

95 DATA 441,420,257,291,748,955,877,59 

6 , 703 , 383 , 692 ,109,754, 448 , 663 , 8329 

210 DATA 563,277,688,111,637,381,89,73 

,156,343,509,293,41,297,756,5214 

9005 DATA 820,307,241,623,298,472,592, 

221,270,500,254,742,415,748,298,6801 

9033 DATA 385,302,451,220,384,158,311, 

170,843,42,149,134,641,626,942,5758 

10000 DATA 301,415,907,816,981,824,724 

,649,135,100,717,106,745,122,729,8271 

10833 DATA 681,860,325,137,815,901,825 

,879,550,292,814,846,336,388,74,8723 

10106 DATA 167,106,857,788,181,92,752, 

374,20,568,195,232,699,3,287,5321 



10133 DATA 80,521,561,68,941,47,633,51 
4,595,461,337,465,821,109,756,6909 
10182 DATA 943,727,705,849,724,396,557 
, 307 , 352 , 452 , 510 , 572 , 582 , 848 , 581 , 9185 
10300 DATA 83,609,547,108,575,1922 



Listing 2. 

10280 RESTORE 9050: FOR 1=0 TO 7: READ A 
:POKE CPHBAS»256> +896+108+1, A :MEKT I 
10282 RESTORE 10282 :FOR 1=1536 TO 1546 
:READ A:POKE I,A:NEXT ISDATA 72,165,20 
,141,21,208,141,3,208,104,64 
10284 DL=PEEK C560) +256«PEEK f 561} : POKE 
DL+23,136:P0KE 512,0:P0KE 513,6:P0KE 5 
4286,192 



Listing 3. 

1 REH GOTO 10 

2 GRAPHICS 0:POKE 710,0: POKE 712,6:P0K 
E 752,l:G0SUB 9000 

3 FOR 1=0 TO 3:PDKE STKLCK+I,2e :NE)<T I 
:PDKE SKIP 

4 POSITION '2,2:? "PHUH","XP0S","VP05" 

5 POKE 84,4:F0R 1=0 TO 3:? I,PEEKfl<POS 

+IJ;" "SPEEKCVPOS+IJ; ? :NEXT I:GOT 

5 



Reader Comment 

(continued from page 9) 



Friends of the C. 

I'm an Atari 800 user and a data 
processing professional who is 
hooked on the C programming lan- 
guage. If you want an excellent 
programming language, read 
on . . . and if you already use C on 
an Atari, please drop me a line, so 
we can swap functions and tricks. 

Here are three very good reasons 
to program in C: 

L In the business world, a lot of 
people are making big bucks writ- 
ing in C. AT&lT and IBM are bet- 
ting that C will be the language of 
the future for business micros, and 
a lot of IBM followers are already 
on the bandwagon. The problem 
is that there aren't very many C 
programmers out there. So lately, 
in the computer industry's trade 
journals, there have been a lot of 
ads for programmers knowledgea- 
ble in C and UNIX — offering sa- 
laries at $30-$50,000! And this is 
with little other DP experience. A 



BASIC, assembler or COBOL 
programmer is lucky to get a job for 
half that much. 

2. It's a high-level language that 
produces compiled code which runs 
rings around BASIC programs, yet 
is infinitely easier to use than as- 
sembler. 

3. It has many of the familiar 
BASIC verbs, like PEEK and 
POKE, as functions that are used 
in a similar fashion. Yet — since 
these functions are written in C, 
and you are provided the source 
code — you can make them act 
differently by modifying the C 
code. 

So, if you want to program in the 
language of the future — that uses 
many of your favorite BASIC verbs, 
that allows modular development, 
that produces fast programs, and 
that costs very little — buy a copy 
of Deep Blue C. Then write to me, 
Don Vuckovich at: Friends of the 
C, 584 Crescent Ave., East Aurora, 
NY 14052. 

Don Vuckc:)vich 
East Aurora, NY 



BASIC highlighter. 

Here's a quickie little BASIC pro- 
gram that uses display list inter- 
rupts in a unique way. When run, 
it will highlight whatever line the 
cursor is on in dark blue. 

10 FOR 1=1536 TO 1578:READ A 

:POKE I, a: NEXT I 

20 DLIST=PEEK(56e}+PEEKt561) 

*256 

38 POKE DLIST+2, 240: POKE DLI 

5T+3,194:F0R I=DLIST+6 TO DL 

I5T+28:P0KE I,130:NEXT I 

48 POKE 512,0:P0KE 513,6:PDK 

E 54286,192 

58 DATA 72,173,11,212,233,12 

, 74 , 74 , 197 , 84 , 208 , 13 , 169 , 146 

,141,10,212,141,24,208,133,2 

03,76,41 

60 DATA 6,165,203,201,146,26 

8,10,169,148,141,10,212,141, 

24,208,133,203,104,64 

For some interesting effects, 
POKE 710 with random values 
from to 255, then move the cur- 
sor up and down your screen. 

Yours truly, 

Angelo Giambra 

Cheektowaga, NY 



Send letters to: 
Reader Comment 

RO. Box 23 
Worcester, MA 01603 
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ENCHANTER and SORCERER 
INFOCOM, Inc. 
55 Wheeler Street 
Cambridge, MA 02138 
32K Disk $49.95 



by Matt Hillman 



It must be the warlock Krill. The odd disappearances, 
the mysterious dissolution of regions sacred to the Circle, 
the lessening of the Powers — these could only be his han- 
diwork. The Circle gathers, and the leader, the esteemed 
Belboz, reveals to them an ancient document which por- 
tends evil days much like our own. 

"Krill's evil must be unmade," he begins, "but to send 
a powerful Enchanter is ill-omened. It would be ruinous 
to reveal oversoon our full powers." A ripple of concern 
spreads over the face of each Enchanter Belboz pauses 
and collects his resolve. "Have hope! This has been writ- 
ten by a hand far wiser than mine!" 

He recites a short spell, and you appear. Belboz ap- 
proaches, transfixing you with his gaze, and hands you 
the document. The other Enchanters await his decree. 
"These words, written ages ago, can have only one mean- 
ing. You, a novice Enchanter with but a few, simple spells 
in your Book, must seek out Krill, explore the Castle he 
has overthrown and learn his secrets. Only then may his 
vast evil be lessened or, with good fortune, destroyed." 



The Circle rises to intone a richly-woven spell whose 
textures imbue the small, darkened chamber with warmth 
and hope. There is a surge of power; you are Sent. 

Thus begins Enchanter, the first adventure in a new 
three-part saga from Infocom. The games are set in 
a magical world on the shore of a great sea — across 
which lies the Great Underground Empire of Zork. 

For those adventurers who have made their way 
through Zork, Enchanter is like an old friend. While 
it is not really a sequel to the Zork trilogy, there are 
some scenes and characters that are familiar. If you 
haven't played Zork, you won't lose much; you just 
won't see a few jokes that only Zork players would 
recognize. 

As you explore the world of Enchanter, the meth- 
ods of conquering Krill slowly become evident, and, 
eventually, you gain enough knowledge to assault Krill 
and win the game. 

Many adventures, like Enchanter, have good plots. 
However, Enchanter is a notch or two above most 
of the competition. There are a number of factors that 
make this, like most of Infocom's games, one of the 
best adventures around. 

What makes it good. 

The first thing one notices about Enchanter is the 
superb documentation. It comes with a Guild Direc- 
tory, which humorously explains the rules and gives 
playing hints. And there's a genuine, sealed "ancient 
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document," the one that Belboz refers to in the in- 
troduction. The documentation is interesting and fun- 
ny, and adds some realism to the game. 

The program itself is also a work of art. It can un- 
derstand full sentences and over 600 nouns, verbs, ad- 
jectives, articles — and even some prepositions. With 
this huge vocabulary, it still can usually respond in 
a couple of seconds, accessing the disk only occa- 
sionally. 

There are also numerous "extras" included here that 
many adventures don't have. You can print out a tran- 
script of your quest (assuming, of course, that you've 
got a printer), allowing you to review your progress 
or peruse the transcript at a later time, possibly find- 
ing clues that were missed during the playing of the 
game. The major problem with this is that it uses lots 
of paper; however, you can turn the printer on or off 
at will, so you need only print the parts you want. 

There are also commands to save a game and then 
recall it. You can save four game positions on a blank 
disk. It is often smart to save a game just before at- 
tempting something dangerous, or just to give your- 
self (and the computer) a rest. 

More than technology is needed in a good adven- 
ture; the setting and characters of the game must be 
as developed as the program. Enchanter does this very 
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well, making you feel as if you really are wandering 
through a world of strange creatures, magical spells 
and hostile forces. 

Each location is described in detail. As you travel 
through the deserted village, you can sense the deso- 
lation. . .and, in Krill's castle, you can jeel the evil. 
The locations even change over time; as Krill's pow- 
er increases, the darkness and evil in the land grow 
more powerful. 

Enchanter is filled with excellent puzzles, most of 
which involve magical spells. You begin with only four 
but can find more during the game. Some spells can 
only be used once, while others are reusable. In most 
puzzles, you must manipulate the spells in certain ways 
— and the correct way usually isn't obvious at first. 
Some spells can be used to solve more than one puz- 
zle, which poses a problem if they can only be used 
once! You may get near the end of the game, only to 
find out that, to win, you need a spell you used up 
at the beginning. Most puzzles are complicated and 
difficult, but not to the point of frustration. Through 
creativity, logic and the use of imbedded clues, the 
puzzles can be overcome. 

The world of Enchanter has more in it than the 
puzzles leading to its solution. Some adventures will 
accept the correct commands and respond, "You can't 
do that," for everything else; Enchanter does not. For 
example, the spells can be used in a variety of ways. 
One spell, Blorb, seals whatever you cast it on in a 
strongbox. You can cast it on anything you want, in- 
cluding yourself (not too healthy). There are also ran- 
dom events that are inconsequential to solving the 
puzzles but add realism to the game, making it more 
interesting. 

Enchanter has some problems, though none really 
detracts from the game. At one point, a seemingly- 
simple action becomes complicated because of the 
way you have to word it; the synonym recognition 
of the program could be better here. Also, sometimes 
when you try to cast a spell on something (such as 
Blorbing a turtle), the computer doesn't respond with 
anything. It should at least say, "Nothing happens." 
One other problem is that you have to eat and drink; 
while this adds to the realism of the game, eventual- 
ly it just becomes a pain in the neck. 

When the warlock Krill is finally conquered — and 
you become a hero — you are ready for the next chal- 
lenge. This is Enchanter's sequel. Sorcerer. 

Onward to Sorcerer. 

In Sorcerer, Belboz has been kidnapped. It is up 
to you to rescue him. You'll have to explore the Guild 
Hall, an ancient fort and castle, and an underground 
amusement park— finally gaining the ability to defeat 
the demon Jeearr, who holds Belboz prisoner. 

Unlike many sequels. Sorcerer does live up to the 
precedent set for it by Enchanter and, in many re- 
spects, surpasses it. The documentation consists of 
an issue of Popular Enchanting IsAagazine (or rule book) 
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and a rotating cardboard Infotater, which gives in- 
formation about the many creatures of the land, hke 
Brogmoids and Dorns. 

Game play is essentially the same as Enchanter's. 
Sorcerer has all the special commands and features 
of its predecessor, with a much larger vocabulary (con- 
sisting of over 1000 words). There seems to be a draw- 
back, however, in that— occasionally — the computer 
will spend a long time interpreting your sentence (pos- 
sibly because it's searching through its vocabulary). 

One small improvement is in the routine after the 
player's death. In previous Infocom games, in order 
to use a saved game after a death, you had to restart 
the game (which takes a little while) and then restore 
your old game. In Sorcerer, you have the option to 
restore a game right after your death. This can save 
a lot of time if you are in a place where you are con- 
tinually dying. 

The best improvement is in the game world itself, 
its setting and puzzles. Sorcerer's very well developed. 
As you play the game, the history and geography of 
the land becomes evident. There is even an encyclo- 
pedia which contains entries about the history and 
culture of Sorcerer's world. The scenario is realistic, 
not only because of its detailed description, but also 
because of its depth; there's more to this game than 



puzzles. Even after the game has been solved, there 
are many interesting things that can be done. 

The puzzles are still the heart of the game, and Sor- 
cerer's are excellent. In general, they're not too diffi- 
cult (Enchanter's are harder) but are very interesting 
and, in a few cases, very complicated. Some puzzles, 
especially one quite complex puzzle toward the end, 
seem difficult at first but never reach the point of im- 
possibility. There's always something else to try. 

Like Enchanter, most Sorcerer puzzles are depen- 
dent on magical spells. Some are new, while others 
were used in the previous game. There are also po- 
tions, which affect the drinker in various ways. Mag- 
ic works much the same way it did in Enchanter. 

The problems in Sorcerer are few. One could com- 
plain that it is too easy, but that's really dependent 
on the player's tastes and abilities. The program seems 
to take a long time between commands, as mentioned 
earlier. The problem of food and water is taken care 
of early; in Sorcerer you don't have to carry it around 
with you. All in all, Sorcerer is one of the best ad- 
ventures to be found. 

Once Sorcerer is solved, aspiring Enchanters will 
have to wait until later this year to continue quest- 
ing. Sorcerer drops a few hints about its sequel, but 
the plot remains a mystery. One can only wait. D 
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(orAUrl.CtHTiniBlQn.lBK.Itppli. ir^Blhin.Wrili 
lor mjF FREE CATALOG Pliut t6i 5'i lor UPS 
ground ihlpplng i hindllrui IMInltnuni ■4.00) 
ituludi tirtil icdriit ii UPS dou mil dillvir to 

PO Bovii IPO.FPO.AIIlki.Htwlll.SPuinsRIca 
bt Pircil Potl onU (Add W, al ordii. Minimum 
17.001. No C.O.D. trdtn ictsiplM. NT nildlnU muit 
add propir ulii li>. Prlcii quoin) Includ* i dli 
counl lor Hih. Pliiti Mid 3*1 lor uit ol MiilirCird, 
Vli). or Amtrlcin Ejpnu. Duo Uthi lluctuitloni tl 
Ihi mirtK, ill prlcii in tublid Id diingi without 
nollct. Allow 3 wMkt loi dillvtry. 



CALL OUR ORDER DESK TOLL-FREE 

1-800-255-5905 

Tor information or to order 
trom NY. Alaska. Hawaii call 212-219 2333 



COMPUTER CORPORATION 

423 Broadway. New York. NY 10013 








js^^"^ mis 
^d^ unique club 

beats them all 



DISK-OF-THE-MONTH CLUB Dl 

P.O. BOX 116, FAIR LAWN, N.J. 07410-0116 ■ 



STTVEH ADDRESS 




ATARI HARDWARE!! 

810 Disk Drives $265 
810 Drive Kits $240 

810 Analog Upgrade, 
easy kit. . .$37 
810 Happy $185 
8.50 Interface $180 
800 Computer Kits, 
48K electronics $100 
400 Computer Kit $47 
48K Expansion $87 
800 Motherboard $37 
400 Motherboard $1,5 
ROM 'B' boai-ds $17 
•GTIA' CPU board $18 
Power Adapters $15 
16K Memory board $19 
Microsoft Basic II $27 
Conv. Spanish $12.50 
Atari Pilot $20 
Basic carl kit $15 
Assembler kit $15 
We have manv parts and IC chips!! 
MUCH, MUCH MORE!! 
FREE CATALOG!! 

CENTURIAN 
ENTERPRISES 

P.O. BOX 8233 
SAN LUIS OBISPO, CA 
9.3403-3233 
(80.5) .544-6616 
VISA & MC 
Office Mrs: Mon-Thurs. 10-5 
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Palette 




24K Cassette or 32K Disk 



by Michael and Bernard Mikowski 

When I first got my 600XL, visions of complex and 
detailed graphics screens filled my head. For the first 
week or so, I messed around with PLOTs, DRAWTOs 
and that clumsy OS Fill. Soon eyestrain, a sore set 
of fingers and cold dinners caught up with me. Some- 
thing had to be done. 

I knew that the Atari was capable of some amaz- 
ingly detailed displays, but this wasn't the way to go 
about doing it. What I needed was some sort of graph- 
ics program that could speed up the process. I decided 
to design one myself. After a few days of work, I per- 
fected the program. Magic Palette is the result. 

I chose to write the program in graphics mode 9 
because of its many shades and its fairly high resolu- 
tion. Graphics 9 allows sixteen shades of one color. 
You must have the GTIA chip to use this mode and 
this program. 



Magic Palette is structured to make the designing 
of screens quick, easy and fun. Using the joystick, 
trigger and keyboard, you can draw freehand with 
one of the eleven brushes, draw lines between points, 
draw open or filled ellipses, use sixteen shades of col- 
or, draw quadralaterals, and fill in almost any nook 
or cranny imaginable. 

Using your palette. 
When you RUN Magic Palette, there will be a mo- 
mentary pause while the data areas are initialized. 
When this process is complete, you will be asked for 
the name of the picture file you want to work with. 
If you're using cassette, type C: and press RETURN. 
Disk users should enter D: filename. ext and press RE- 
TURN. After you've entered this information, the 
program displays the drawing screen. 
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Once in the drawing mode, you can move the draw- 
ing cursor around on the screen with a joystick which 
is plugged into port 1. By using the joystick and sever- 
al keyboard commands, you can create and save your 
own art masterpieces. Below is a list of commands and 
their meanings. 

Joystick: Use the joystick to move the blink- 
ing cursor in one of eight directions. The cursor 
is "accelerating." When the cursor is moved in 
one direction for a while, it will pick up speed. 
Thus it can move around the screen more quick- 
ly, while still allowing for intricate artwork. 

Brush or Color: To select a particular brush 
or color, simply move the cursor over the desired 
brush or color at the top of the screen and press 
the trigger. 

Line: To draw a line between two points, press 
the SPACE BAR at the first point and then again 
at the second. The line will be drawn with the 
current color and brush size. 

Rubberband: This mode allows you to draw 
a "continuous" line. Press R to enter the mode. 
When you enter the mode, press the trigger to 
establish a starting point. From then on, press 
the trigger to draw from the last plotted pixel 
position to the current cursor position. Exit the 
mode by pressing R again. 

Open Circle or Ellipse: To draw an open cir- 
cle or ellipse, press C once for the outer vertical 
edge, once again for the center of the circle, and 
one last time for the horizontal edge (Figure 1). 



• 1st PRESS 




Figure 1. 

Solid Circle or Ellipse: This command is typed 
as S and works the same way as the C command, 
but the circle is filled. 

Quadralateral: Press Q once for the top left- 
hand corner, again for the bottom left-hand corn- 
er, and one last time for the bottom right-hand 
corner (see Figure 2). 



z. 



Erase Screen: Type CONTROL E. Note: use 
quadralateral mode with the background color 
to erase smaller portions of the screen. 

Fill: Any closed area may be filled in with the 
current color by placing the cursor in the loca- 
tion desired and pressing F. Magic Palette uses 
a modified version of the fill routine used in 
Graphics 10/7 Painter by Peter C. Budgell. For 
details on the subroutine, see ANALOG Com- 
puting issue 16. 

Quick Position Cursor: Press a number (1-9) 
to quickly move the cursor. See Figure 3 for the 
positions. 



1 


2 


3 


4 


5 


6 


7 


8 


9 



Figure 3. 

Put Screen to File: This command enables you 
to save a screen to the file you specified at the 

(continued on next page) 



Put a Monkey Wrench 
into your ATARI 800 or XL 



$49.95 



Cut your programming time from hours to seconds, and tiave 33 

direct mode commands and functions. All at your finger tips and 

all made easy by \he MONKEY WRENCH II. 

Ttie MONKEY WRENCH II plugs easily into 

ttie cartridge slot otyour ATARI and works 

witti the ATARI BASIC, 

Order your MONKEY WRENCH II today and ' . 

enjoy ttie conveniences of these 33 features] 

• Line numbering 

• Renumbering basic line numbers 

• Deietion of line numbers 

• Variable and current value display 

• Ixicationof every string occurrence 

• String exchange 

• Move lines 

• Copy lines 

• Up and down scrolling of basic programs 

• Special line formats and page numbering 

• Disl< directory display 

• Margins change 

• Home key functions 

• Cursor exchange 

• Upper case lock 

• Hex conversion 

• Decimal conversion 

• Machine language monitor 

• DOS functions 

• Function keys 

The MONKEY WRENCH II also contains a machine ^ 
language monitor with 16 commands that can be used 
to interact with the powerful features of the 6502 microprocessor 




MAE 



An easy lo use but powerful Msao Assembler/Editor Includes M,L- 
Monitor. Word Processor and more. The Best for Less! 
Now Only $59.95. 

(For use witfi ATARI 800 or XL and Disk Drive.) 



Figure 2. 
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Bopotron! 

the new levels 



by ANALOG Computing readers 

In ANALOG Computing's issue 24, Kyle Peacock 
unveiled Bopotron!, a BASIC-and-assembly-language 
game. The Bopotron Construction Set, also pub- 
lished in that issue, allowed readers to create their 
own screens for the game. Here are two levels creat- 
ed by Jerry Petersen, of Portland, Oregon. 

The levels are listed separately, so you can add them 
one at a time, if you like. When you add a level, how- 
ever, be sure to change the MAXLEVEL variable in 
Line 160 to reflect the highest level available. 

Next issue, we'll be presenting many more Bopo- 
tron! levels sent in by other creative readers. So, if 
you have a Bopotron! level or two that you've 
designed, why not send it in? D 



Bopotrons Boogie Brigade 

ANALOG Computing 

P.O. Box 23 
Worcester, MA 01603 



Level 6. 

22ee DATA e, 5, see, 588 

3280 DATA 8,10 

4280 DATA 12,0,8,5,17,22,5,28,37,5,0,1 
2,10,17,23,18,26,38,18,0,12,15,17,26,1 
5,30 

4281 DATA 38,16,32,38,22,8,15,23,18,26 
,23 

5280 DATA 5,5,18,9,5,10,32,15,23,6,15, 

23,27,16,22,36 

6288 DATA 1,18,23 

7288 DATA 4,37,18,8,15,32,22,0,23 

8280 DATA 2,5,15,15,15,10,2,15,10,15,5 
,2,15,5,13,10,2,13,10,13,15,2,13,15,15 

8281 DATA 15,2,3,24,10,26,5,2,26,5,23, 
5,2,23,5,24,10,2 



Level 7. 

2220 DATA 0,23,500,500 
3220 DATA 38,5 

4220 DATA 13,0,5,5,15,20,5,32,38,5,27, 
38,6,1,4,18,4,7,11,18,21,11,29,38,11,7 

4221 DATA 18,12,8,10,18,18,22,18,28,38 
,22,8,28,23 

5220 DATA 3,5,11,32,12,18,11,18,23,18 

6220 DATA 1,37,11 

7220 DATA 4,0,5,29,6,8,18,37,22 

8220 DATA 2,5,23,18,26,22,2,26,22,27,1 
1,2,27,11,22,11,2,22,11,25,6,2,25,6,23 

8221 DATA 18,2,5,13,5,16,11,2,16,11,14 
,12,2,14,12,16,11,2,16,11,6,5,2,6,5 

8222 DATA 5,10,2 



Magic Palette 

(continued from previous page) 



start of the program. When you press P, the pro- 
gram will sound a short tone and wait for verifi- 
cation. Ready your file device (cassette or disk) 
and press the joystick button. If you decide not 
to save the screen, you can abort by moving the 
joystick in any direction. 

Get Screen from File: This command loads 
a screen from the specified device. Pressing the 
button starts the load; moving the stick aborts 
the load and returns you to drawing mode. 

New Color: T) choose a new background col- 
or, press N. Then, by moving the joystick to the 
right or left, you can change the color When 
you have selected the color you want, press the 
joystick button to return to the drawing mode. 
Note: to use Magic Palette in multi-color, change 
the graphics 9 to graphics 11 in Line 240. The 
new color command will then change the lumi- 
nance of the sixteen colors on the screen. 

1 hope that you'll enjoy Magic Palette. D 



Lines 100-190 — Set up arrays, flags, etc. 

Lines 200-230 — Accept name of picture file. 

Line 240 — Graphics 9. Put bar of shades on 
the screen. 

Line 250 — Load the arrays and draw the 
brushes on the screen. 

Line 270 — Main loop. Check to see if we 
are in rubberband mode and if the trigger is 
pressed. If so, GOSUB line drawing subroutine. 

Line 280 — If the trigger is pressed or the stick 
has changed direction, slow down the cursor. 

Line 290 — If the stick hasn't changed for 
eight loops and the trigger isn't pressed, speed 
up the cursor. 

Line 340 — Redraw the old cursor position 
and plot the new one. 

Line 350 — Check if cursor is in "menu" area 
and if the trigger is pressed. If so, GOSUB the 
line to change color or brush. 

Line 360 — Draw brush. If no fill, jump over 
the fill routine. 

Lines 370-380 — Read keyboard. Check for 
numbers for instant cursor posirion. 

Lines 390-480 — Check for keys to certain 
subroutines (e.g., F for fill) and branch to them. 

Line 490 — Back to main loop. 

Lines 500-530 — Subroutine to change brush 
or color. 

Lines 540-560 — Quick pc)sition subroutine. 

Lines 570-1020 — Subroutines to perform 
quadralateral, line, fill, rubberband, ellipse, put, 
get, verify and change background color. 

Lines 1030-1050 — Install fill subroutine on 
page 6. 
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180 GRAPHICS 18:P05ITI0N 3,2:? tt6;"K3G 

DC QAiEQTi": POSITION 0,6:? tte;"one moh 

ent please. . ." 

110 CC=10:DIM XPCll) .YP(ll),NNf35},SX( 

15 J ,SYC15} ,ASC256),B$(256),CSf2S6) ,DSt 

256J ,Fl5(2ej :X2=955:X3=999:G0SUB 1030 

120 FOR 1=5 TO 15:READ Z :SX CI}=Z :READ 

Z:SYtI)=Z:MEXT I 

130 DftTA 1,1,1,-1,1,0,0,0,-1,1,-1,-1,- 

1,0,8,0,0,1,0,-1,0,0 

140 J-IMT (ADR tflS} /256} : I=ADR (AS) - J«256 

:POKE 203,I:P0KE 204, J 

150 J=IMT (ADR (BS) /256) : I=ADR (BS) -J«256 

:P0KE 205,1: POKE 206, J 

160 J=IIIT (ADR (C$ J /256) : I=ADR (CS) -J»256 

:POKE 207, 1: POKE 208, J 

170 J=IMT (ADR (DS J /256 J : I=ADR (DS J - J»256 

:POKE 1790,I:P0KE 1791, J 

180 FOR 1=1 TO 35:NN(I)=0:NEXT I:FOR I 

=1 TO 9:READ Z:HII(Z-24J=I:IIEXT I:XP(11 

1=4:YP(11)=8:Q=1 

150 DATA 31,30,26,24,29,27,51,53,48 

280 BCS=0: GRAPHICS 34 

210 ? -mMHAT FILE DO YOU HANT TO HORK 

WITH?": INPUT FIS:IF LEN(FlS}<2 THEN 21 



228 IF FI$(1,2)="C:" THEN 248 

230 IF FIS(1,1)<>"D" THEN 210 

240 GRAPHICS 9: FOR 1=0 TO 15 STEP 0.5: 

COLOR I: PLOT I»2,8:DRAMT0 1*2, 10: NEXT 

I:COLOR 7:PL0T 0,10:DRAMT0 79,10 

250 RESTORE 268:F0R 1=8 TO 18:READ A,B 

: XP (I J =A : VP (I) =B : PLOT 1*4*35, : DRAMTO 

I*4*35+XP(I3,YP(I) :HEXT I 

260 DATA 0,8,0,1,8,4,8,6,1,8,2,8,1,1,2 

,2,3,3,2,4,4,8 

270 IF RR=1 THEN STT=ST :ST=STRIG (8J : IF 

STT=1 AND ST=8 THEN GOSUB 610 
288 IF SSOS OR STRIG(e]=e OR 5=15 THE 
N LL=0: 0=1: GOTO 380 
290 LL=LL*l:IF LL>8 THEN LL=8:Q=3 
388 SS=S : S=STICK (8J : X=X+SX (S>*Q : Y=Y+SY 
(S)*Q:IF Y>191 THEN Y=e:GOTO 320 
310 IF Y<0 THEN Y=191 
320 IF X>79 THEN X=0;GOTO 340 
330 IF X<0 THEN X=79 

340 COLOR C:PLOT X1,Y1:L0CATE X,Y,C:X1 
=X:Y1=Y: COLOR 74C:PL8T X,Y:IF STRIG(8) 
=1 THEN 378 

350 IF Y<11 THEN GOSUB 5e0:G0T0 370 
360 C=CC:COLOR CC:TRAP 370:PL0T XI, Yl: 
DRAHTO X1+XP,Y1+YP 

370 TRAP 48888:IF PEEK(753)=8 THEN ZZ= 
1:G0T0 270 

380 P=PEEK(754J :IF P>23 AND P<60 THEN 
IF NN(P-24}>0 AND ZZ=1 THEN GOSUB 748: 
G8SUB 548:ZZ=8 

390 IF P=47 AND ZZ=1 THEN GOSUB 740: GO 
SUB 570:ZZ=0 

488 IF P=33 AND ZZ=1 THEN G8SUB 748: GO 
SUB 618:ZZ=8 

418 IF P=17e THEN CC=8:G0T0 240 
420 IF P=18 AND ZZ=1 THEN GOSUB 740 :G0 
SUB 750:ZZ=0 

438 IF P=62 AND ZZ=1 THEN GOSUB 740 :G0 
SUB 920:ZZ=0 

440 IF P=56 AND ZZ=1 THEN GOSUB 740: GO 
SUB 788:ZZ=8 

458 IF P=18 THEN GOSUB 748:G0SUB 938 
468 IF P=61 THEN GOSUB 740: GOSUB 940 
470 IF P=35 THEN GOSUB 740: GOSUB 990 
488 IF P=48 AND ZZ=1 THEN GOSUB 748 :G0 
SUB 720:ZZ=0 
490 GOTO 270 

500 IF X<35 THEN CC=C:RETURN 
510 XP=XP ( (X-35J /4) : YP=YP ( (X-35) /'4J : IF 

X*XP>79 THEN X=79-XP 
520 IF Y*YP>191 THEN Y=191-YP 
538 RETURN 

540 U=NN(P-24) : Y= (INT (U/3-e . 3) J*98*l 
558 IF U>3 THEN U=U-3:60T0 558 
560 U=U-1 : X=U*35+5 : X=ABS (X> : Y=ABS (Y) : R 
ETURN 
570 IF X2=999 THEN X2=X :Y2=Y : RETURN 



580 IF X3=999 THEN X3=X : Y3=Y : RETURN 
590 COLOR CC:FOR I=X3 TO X:PLOT I,Y:DR 
AWTO X2,Y2:X2=X2+l:IF X2>79 THEN X2=79 
680 NEXT I:X2=999:X3=999:C=CC:RETURN 
610 IF Y<18 THEN RETURN 
628 IF X2=999 THEN X2=X :Y2=Y : RETURN 
638 COLOR CC:FOR Z=0 TO XP:FOR Zl=8 TO 

YP:IF X+Z>79 THEN X=79-Z 
640 IF X2+Z>79 THEN X2=79-Z 
650 IF Y+Z1>191 THEN Y=191-Z1 
660 IF Y2+Z1>191 THEN Y2=191-Z1 
670 PLOT X+Z,Y+Zl:DRAMTO X2+Z,Y2*Z1 
680 NEXT Zl:NEXT Z:IF RR=0 THEN X2=999 
:C=CC: RETURN 
690 X2=Xl:Y2=Yl:RETURN 
788 IF Y<11 THEN RETURN 
710 AA=USR (1536, CCJ:C=CC: RETURN 
720 IF RR=1 THEN RR=8 : X2=999 : RETURN 
730 RR=1: RETURN 

740 SOUND e,6e,10,ie:S0UND 1,150,10,10 
:FOR TM=0 TO 10:NEXT TM:S0UND 8,8,8,8: 
S8UND 1,8,8,8:RETURN 
750 FFF=0 

760 IF X3=999 THEN X3=X : Y3=Y : RETURN 
770 IF X2=999 THEN X2=X : Y2=Y : RETURN 
780 X1=X:Y1=Y:XR=ABS(X2-X1J :YR=ABS(Y2- 
V3):C0L0R CC:FOR 1=0 TO 3.15 STEP 0.85 
790 X1C=X2+XR«SIN(I) : X2C=X2-XR»SIH (I) : 
VC=Y24YR»C0S(I) 
888 IF X1079 THEN X1C=79 
818 IF X1C<8 THEN X1C=8 
828 IF X2079 THEN X2C=79 
838 IF X2C<8 THEN X2C=8 
840 IF YC<11 THEN YC=11 
850 IF Y0191 THEN YC=191 
860 IF RX1C=0 THEN 900 
870 IF FFF=1 THEN 890 

880 PLOT RXICRVC: DRAHTO X1C,YC:PL0T R 
X2C,RYC: DRAHTO X2C,YC:G0T0 908 
890 FOR IY=YC TO RYC:PLOT X2C,IY:DRAWT 
X1C,IY:NEXT IV 
980 RX1C=X1C:RYC=VC:RX2C=X2C 
910 NEXT I:COLOR 7*CC:PL0T X2,Y2:X2=99 
9 : X3=999 : RX1C=8 : C=CC : RETURN 
920 FFF=l:GOTO 768 

938 COLOR CC:PLOT X,Y: GOSUB 950: OPEN tl 
1,8,8,FIS:F0R I=DHEM TO 7239+DMEM:PUT 
ttl,PEEK(I) :NEXT I: CLOSE ttl: RETURN 
940 GOSUB 950:0PEN ttl, 4,0, FI$ :FOR I=DM 
EM TO 7239 + DMEM:GET ttl,A:POKE I,A:NEXT 

I:CLOSE ni:LOCATE X,Y,C:RETURN 
950 Dt1EM=PEEK (88) *256*PEEK (89) *448 
968 S=STICK(0) :S1=STRIG(0) :IF S<15 THE 
N POP :RETURN 
970 IF Sl=l THEN 960 
980 RETURN 

998 S=STICK(0) :S1=STRIG(8) :IF Sl=8 THE 
N GOSUB 748:RETURN 

1880 IF S=7 THEN BCS=BCS+1:IF BCS>15 T 
HEN BCS=0 

1818 IF S=ll THEN BCS=BCS-1:IF BCS<e T 
HEN BCS=15 

1820 SETCOLOR 4,BCS,8:G0T0 998 
1838 RESTORE 1848: FOR 1=1536 TO 1791 :R 
EAD Z:POKE I,Z:NEXT I:RESTORE :RETURN 
1840 DATA 184,184,184,133,209,173,254, 
6 
1850 DATA 133,212,173,255,6,133,213,16 

9 

1868 DATA 8,133,231,168,1,165,85,145 

1870 DATA 203,133,233,133,214,165,84,1 

45 

1880 DATA 205,133,234,133,215,132,232, 

32 

1890 DATA 184,6,133,230,197,209,208,1 

1100 DATA 96,32,221,6,177,203,133,214 

1110 DATA 177,205,133,215,230,214,165, 

214 

1120 DATA 201,80,176,8,32,184,6,208 

1130 DATA 3,32,164,6,198,214,198,214 

1140 DATA 165,214,201,255,240,8,32,184 

1150 DATA 6,208,3,32,164,6,230,214 

1160 DATA 230,215,165,215,201,192,176, 

8 

1170 DATA 32,184,6,208,3,32,164,6 

1188 DATA 198,215,198,215,165,215,281, 

11 
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1190 


DATA 


1200 


DATA 


1210 


DATA 


1220 


DATA 


203 




1230 


DATA 


1240 


DATA 


1250 


DATA 


45 




1260 


DATA 


96 




1270 


DATA 


1280 


DATA 


1290 


DATA 


15 




1300 


DATA 


1310 


DATA 


1320 


DATA 


1330 


DATA 


3 




1340 


DATA 


1350 


DATA 



144,8,32,184,6,208,3,32 
164,6,198,232,240,4,200,76 
52,6,164,231,240,95,132,232 
177,212,145,205,177,207,145, 

136,208,245,160,1,169,0,133 

231,76,52,6,32,221,6,230 

231,240,75,164,231,165,214,1 

207,165,215,145,212,164,235, 

32,200,6,169,7,157,66,3 
32,86,228,164,235,197,230,96 
132 , 235 , 165 , 214 , 133 ,85,165,2 

133,84,162,96, 169 , , 157 , 72 
3,157,73,3,96,32,200,6 
169,11,157,66,3,165,209,32 
86,228,164,235,96,165,234,13 

84,165,233,133,85,96,32,237 
6,104,184,96,0,0,0,0 



CHECKSUM DATA. 

(see page 10) 

100 DATA 640,558,148,3,96,111,126,327, 
276 , 885 , 880 , 195 , 217 , 280 , 671 , 5413 
250 DATA 540,549,24,335,377,377,766,64 
4 , 574 , 342 , 354 , 533 , 131 , 229, 432 , 6287 
400 DATA 377,173,408,398,401,647,666,6 
90,399,739,831,245,910,598,417,7899 
550 DATA 962,949,983,991,336,199,323,9 
78 , 457 , 554 , 739 , 85 , 904 , 901 , 354 , 9707 



780 DATA 325,147,901,508,986,342,989,9 
87,983,865,460,2,468,12,15,7990 
850 DATA 392,982,827,368,455,129,870,5 
03 , 886 , 494 , 424 , 88 , 512 , 621 , 582 , 8133 
1000 DATA 872,106,988,88,221,229,943,4 
99,467,200,185,310,740,998,18,6864 
1150 DATA 919,240,616,509,618,941,216, 
332 ,177,849, 506 , 589 , 620 , 88 , 531 , 7671 
1300 DATA 983,482,972,294,249,301,3281 





SOFTWARE 



611 Cypress Dr. 
Fairborn, OH 45324 



ORDERS ONLY PHONE: 1-(800)-282-0333 
INFORMATION LINE: 1-(513)-879-9699 



ABBY'S SUPER BUYS 



Canyon Climber (D) $11 

Claim Jumper ID) ICI $11 

Crossfire (Dl IC) (Rl $11 

Demon Attack (R) $11 

Frogger (D) $11 

Jawbreaker (D) (C) (R) $11 

Kayos (C) $ 7 

Ms. Pac Man IB) $25 

Moon Shuttle (D & C) $11 

O'Riley's Mine ID & C) $11 

Picnic Paranoia IDl (CI ...... $1 1 

Serpentine (Rl $11 

Wall War (Dl $11 

Zaxxon (Dl $11 



ATARI 

Assembler Editor (R) $49 

Atari Basic (Rl $29 

Atari Lfjgo (R) $79 

Atari MacroAssembler (D) $69 

Atari Microsoft IMD & R) $69 

Atari Music (D) $30 

AlariWriter (R) $75 

Eastern Front (Rl $35 



Joust IR) $37 

Mario Brotfiers (R) $37 

Pilot (Rl $69 

Pole Position (Rl $37 

NEW! Atari Lab/Science (D) $69 

NEW! Syn-File (Dl $75 

NEW! Syn Calc (Dl $75 

NEW! Syn Trend (D) $75 

BRODERBUND 

Apple Panic (Dl (C) $15 

Bank Street Writer (D) $39 

Chopllftei (Dl $19 

Drol (Dl $25 

Lode Runner (Dl $27 

Operation Whirlwind (Dl $25 

CBS 

K-dos (D) $15 

Krazy Kritters (Rl $ 9 

K-razy Shootout (R) $ 9 

DATASOFT 

Bruce Lee (D & C) $21 

Clowns & Balloons (D) (C) $12 

Pacific Coast Hwy (Dl (CI $15 



ELECTRONIC ARTS 

Archon (D) $29 

D-Bug (D) $26 

Hard Hat Mack (Dl $26 

M.U.L.E. (01 $29 

Music Construct Set (Dl $29 

One on One (D) $29 

PInball Constr Set (Dl $29 

EPYX 

Curse of Ra (Dl (C) $15 

Dragon Riders Pern (D) $25 

Gateway to Apshai (R) $29 

Pitstop (R) $25 

Puzzle Mania (Dl $23 

Silicon Warrior (R) $25 

Summer Games (D) $25 

Temple of Apshai (Dl (C) $25 

Upper Reaches (Dl (C) $15 

GAMESTAR 

Star Bowl Football (D) (C) $17 

StarLeague Baseball (Dl (C) $25 

INFOCOM 

Enchanter (Dl $33 

Infidel (Dl $33 

Planetfall (Dl $33 

Sea Stalker (D) $29 

Sorceror (D) $33 

Witness (D) $33 

Zork I, II, III (Dl ea. $27 



■■■■■■■■■■■■■■■■I 



RESTON 

Moviemaker (Dl $39 

S S I 

Battle Normandy (DMC) $28 

Broadsides (Dl $28 

Carrier Force (D) $43 

Combat Leader (D) (C) $28 

SUBLOGIC 

Flight Simulator II (D) $39 



HARDWARE 



ATARI LOWERS PRICES! 

Atari 800 XL computer CALL 

Atari 1027 letter qual CALL 

Atari 1025 dot matrix CALL 

Atari 410 prog record CALL 

Atari 1010 prog record CALL 

Atari 1050 disk dr/DOS III CALL 

Trak AT'D2 disk drive $369 

.$518 
.$349 
.$139 
.$110 
.$ 75 



Trak AT-D4 disk drive 

Indus GT disk drive 

MPP-IOOOC AD/AA modem . 
MPP 64K expan, 600 XL . . . 
Koala Touch Tablet (Rl 



DISKS 



Wabash SSSD box of 1 $1 7 

Elephant SSSD box of 10 $19 

Elephant SSDD box of 10 $24 



(C) Cassette Tape (D) Disk (R) ROM Cartridge 



Software orders over $30 free shipping UPS, continental U.S. 
only. Add $2 shipping orders under $30. C.O.D. $5 extra. Ask for hard- 
ware freight charges. Ohio residents add 5.5% sales tax. All Items 
subject to availability and price change. We sell items guaranteed 
by manufacturer. Due to our low prices, we will not honor unauthor- 
ized returns. (Call info, line for authorization.) 



CIRCLE #124 ON READER SERVICE CARD 



Always the Lowest Prices on the Finest Quality 
at. . . COMPUTER CREATIONS 



A 

ATARI 




ATARI HARDWARE 

Atari 800XL'" Home Computer (64K RAM) 

Atari 41 Recorder (Special) 

Atari lOlO'" Program Recorder 

Atari 1020" 40-Column Color Printer/Plotter . . . CALL 

Atari 1025" 80-Column Printer FOR 

Atari 1 027'" Letter Quality Printer UPDATED 

Atari 1030" Direct Connect Modem PRICES 

Atari 1 050'" Disk Drive 

CX77 Atari Touch Tablet" 

Atari Light Pen 

•Screen Dump Program FREE!! with purchase of CX77 

DISK DRIVES 

Indus GT (Free Software) CALL 

Astra 1 620 FOR 

ATR-8000 UPDATED 

Happy Enhancement for Atari 810 and 1050 PRICES 
Drives 



SUPER SOFTWARE 


DISKETTE/CARTRIDGE/ 
CASSETTE FILES 




PRICES 


Flip'N' File 10 

FlipN' File 15 


3.9S 
6.95 


Atari 


Data Defender 


16.99 


Electronic Arts 


FlipN' File/The Original 


16.95 


EPYX 

American Educational 


Disk Bank 

Colored Library Case 

Disk Bank/5 (holds 50) , ,, 


3.99 

2.99 

12.99 


Infocom 


Power Strip (6 outlet) . 


16.95 


Syn-Series 


Lineguard Spike 




Spinnaker 

OSS 

LJK 


Suppressor 

Disk Drive Cleaning Kit ,,, 
Ring King Wallet 

(holds 10 disks) 


13.99 
11.99 

4.99 


Others 


Ring King Wallet 






(holds 20 disks) 


7.99 



AUTHORIZED SERVICE CENTER 

ATARI 

STAR MICRONICS (GEMINI) 

Call for prices and services. 



I OKIMATE 

^ 1 COLOR PRINTER 



I *1 39^= 

i With purchase of printer interface'i S 

mumimmmmmmmintmmmmmmmimammmm 




GENERIC DISKS 



^^ 



FANTASTIC 
PRICES!! 



GENERIC DISKS AS LOW AS 99<U ea. 

Generic 100% Defect-Free/Guaranteed. 

Includes sleeves, labels, write protect tabs, reinforced 
hub rings, lifetime warranty. 

SS/SD SS/DD DS/DD 

DI.SKEnES 1 or 2 boxes 12.99 14.99 17.99 

(1 box minimLm) 3 - 9 boxes 11.50 13.50 16.50 

10 per box 10+ boxes 9.90 11.99 14.99 



PRINTERS 

GEMINI 1 OX (80 Column) 259.00 

GEMINI 15X (136 Column) 379.00 

DELTA 10 (80 Column) 360.00 

RADIX 10 (80 Column) 539.00 

RADIX 15 (136 Column) 649.00 

POWERTYPE Daisywheel 339.00 

EPSON RX-80 (80 Column) 279.00 

EPSON RX-80 FT (SO Column) 359.00 

EPSON FX-80 (80 Column) 429.00 

OKIDATA92P 449.00 

EPSON RX 100(135Column) 459.00 

TTX LETTER Quality Printer (Includes Tractor Feed) 359.00 

Printer Interface Cables 

MPP-Microprint 49.95 

MPP-1 150 Parallel Printer Interface 59.95 

Printer Ribbons 

GEMINI Printers (Black/Blue/Red/Purple) 3.00 

EPSON Printers 8.95 

RAM (Memory) BOARDS 

Microbits 64K (600XL) Expansion 89.95 

MONITORS 

Sakata SC 1 00 Color Screen 239.00 

Monitor Cable 4.95 

Sanyo 1 2" Green Screen 84.95 

Sanyo 1 2" Amber Screen 89.95 

Sanyo Color Screen 229.95 

Sanyo 9" Green Screen 69.96 

MODEMS 

MPP-1 OOOC Modem 114.95 

Signalman Mark XII Modem with R-Verter 299.95 

Mark X with R-Verter 1 69.95 



To order call TOLL FREE 

1-800-824-7506 




i\M^i^ 







ORDER LINE ONLY 



COMPUTER CREATIONS, Inc. 

P.O. Bo 292467 - Dayton, Ohio 45429 

For information call: (513) 294-2002 (Or to order in Ohio) 

Order Lines Open 8:30 a.m. to 8;00p,m.Mon.-Fri.;1 0:00a, m. to 4:00p.m, Sal. (Eastern standard Time). Minimum SI Operorder. CO. D. 
(add S2,50). All prices are subject to change without notice. Call toll free number to verify prices and availability of product. Actual 
freight will be charged on all hardware. Software and accessories add S3 50 shipping and handling in Continental United States, 
Actual freight will be charged outside U.S. to include Canada, Alaska, Hawaii, Puerto Rico. Ohio residents add 6% sales tax. NO 
CREDITS! Return must have authorization number. 



CIRCLE #131 ON READER SERVICE CARD 



LOTSABYTES DECLARES WAR 



WAR on high prices ! We're going to put an end to the software price 'ripoff. And YOU 
can help ! Just keep those orders coming while you continue to enjoy the quality, 
quantity, selection and low prices that you deserve. Our National Public Domain Copy 
Service will save you time, tedious work, and money. And our exclusive distribution of 
sharply discounted commercial programs will bring you some of the finest programs for 
the lowest possible price, usually 50% off retail! You continue to get FREE BONUSES 
with each purchase of three or more disks. 

PUBLIC DOMAIN SOFTWARE 



#1 
GAMES 

Two full disk 

sides packed 

with over 

25 games 

including some 

Arcade quality. 

$7.95 



#2 
UTILITIES 

25 powerful 

programs to 

help you get 

the most out of 

your Atari 

computer. 

$7.95 



#3 
AMS MUSIC 

25 Advanced 

Musicsystem 

files including 

a new Player 

program. 

2 sides. 

$7.95 



#4 
GAMES 

All different! 

14 more 
better games 

on 2 disk 

sides. Some 

Arcade types. 

$7.95 



#5 
EDUCATION 

Loaded with 

28 programs 

on 2 disk sides 

Fun learning 

for the whole 

family. 

$7.95 



(♦6 


#7 


#8 


#9 


#10 


AMS MUSIC 


GAMES 


UTILITIES 


GAMES 


UTILITIES 


25 all-time 


Two disk sides 


17 more 


NEW! 


NEW ! 


favorites 


packed with 


power-packed 


Two full sides 


A new 


with a 


14 more 


utilities to 


filled with 


assortment 


Player 


great games. 


help unleash 


some of the 


of great and 


program. 


Some 


the full 


best and 


powerful 


Two sides. 


Arcade types. 


potential 


most recent. 


programs. 






of your Atari. 


Some Arcade. 


Don't miss it ! 


$7.95 


$7.95 


$7.95 


$7.95 


$7.95 



LotsaBytes EXCLUSIVES 




ADVANCED 
MUSICSYSTEM II 

by LEE ACTOR 
Allows you to create music 
with your Atari computer! 
All new machine code. 

* Control over pitch 
duration, envelope 
dynamic level, meter, 
tempo and key. 

* 4 independent voices 

* 5'/;. octaves per voice 

* Save up to 8200 notes 

* Custom DOS 

* FULL instructions 

* 24K disk 
Originally $29.95 Only $14.95 

ORIGINAL ADVENTURE 

by Bob IHowell 
For all Atari computers. 
The Original 
Colossal Cave 
Adventure faithfully 
reproduced from the 
main-frames'. 
This is the one 
that launched the whole 
Adventure craze of today! 

* Two mazes 

* 130 rooms 

* Deadly Dragons 

* Nasty Dwarves 

* Tenacious Troll 

* The Pirate & More! 

* 86 coded hints 

* SAVE/RESUME 

* 40K disk or 32K tape 
Originally $29.95 Only $14.95 




QUALITY WORD PROCESSING 

ESI WRITER I At last a brand-new Word Processor 
that has more features and is easier to use than 
anything else available for the Atari. Easy for the 
beginner to use, it asks questions and remembers 
the answers. ESI WRITER is so sophisticated that it 
has many more features we don't even have room to 
mention ! Works with ANY Atari. 

* Reads any text file * Built in Help screen 

* Very fast ! '' Works with ANY printer 

" Instant top, bottom or text location 

without scrolling! 

* Every printer feature * DISK ONLY (Any Atari) 

* Search and replace * Block move text 
*Page eject/start * Set margins/lines etc. 

*Full justification * Print headers etc. 

* Block delete etc. * Change video color 

* Over 50 pages of docs and tutorials 
TRUST US ON THIS ONE! YOU WILL LOVE IT! 
Originally $49.95 LotsaBytes price $24.95 



* * FREE BONUSES * * 

If you purchase any 3 or more disks at a time 

you may choose any 1 of the following disks 

FREE!! 

a. The Atari XL TRANSLATOR DISK 
that enables XL owners to use most 
400/800 software. FREE ! ! 

— or — 

b. An all different AMS MUSIC disk 

with Player. FREE!! 

—or — 

c. Your choice of one of the P.D. disks — 
#1, #2. #3, #4, #5, #6, tt7, #8, 

#9, or ttIO (specify one) FREE!! 



Full lOC.'a Replacement guaranlee.Any disk found to be defective will be replaced free and we will also refund your return 
postage. All orders sliipped by First Class U.S. Mail. Add SI .95 stripping and handling for 1 to 5 dislts. AddS2.95 for 6 to 12 
disits. California residents add 6% safes tax. Outside of U.S.A. and Canada add 15%. U.S. Funds onfy. We accept checlts or 
tytoney Orders. Sorry, no COD or Charge Cards. Affow three weelts lor personaf checks to clear. 



LotsaBytes 



15445 Ventura Blvd., Suite 10H 
Sherman Oaks, CA 91413 

Alan IS the regisleiod Irademark of Alan, Corp 

CIRCLE #114 ON READER SERVICE CARD 



GREAT GAMES! 
LotsaBytes Exclusives ! 

SPACE GAMES: Three games 
for one low price!. InAliensyou 
can't gel them all and the pace 
keeps getting faster. When you 
do get rid of most of them, you 
are left in a space quadrant 
peppered with mines. Will you 
Survive? If you do, you must 
penetrate the alien's spaceship, 
survive a Robot Attack, and get 
back your stolen 'cloaking' 
device! Interested? 
$24.95 list 

LotsaBytes price: $12.95 

THE BEAN MACHINE by Steve 

Robinson is an Award Winning 
Arcade game that will drive you 
crazy balancing a series of 
beams while trying to get all the 
beans to roll down, without 
touching, all the while avoiding 
'strange creatures' who drop in 
to steal the beans. It's addicting! 
$24.95 list 

LotsaBytes price: $12.95 

DIGGERBONK, another Award 
Winning game by Steve 
Robinson, challenges you to 
find your way through a 
continuously scrolling maze 
while avoiding some really 
strange creatures. Along the 
way you will need to Bonk some 
of them, but watch out for the 
bombs. 
$24.95 list 

LotsaBytes price: $12.95 

GUESS WHAT'S COMING TO 
DINNER lets you try to 
manuever a snake through 7 
levels if you can keep it from 
starving or being electrocuted. 
Lots of surprises! One or two 
players. 
$24.95 list 

LotsaBytes price: $12.95 



CREATIVE LEARNING 
ADVENTURES 

Ages 4 to 10 — D/sk only 

1. Hours of educational fun 

playing 3 exciting creative 
adventures with a friendly alien 
learning about our planet Earth. 
Hand/eye co-ordination, 
drawing, and music skills are 
emphasized. 
$24.95 list 

LotsaBytes price: $12.95 

2. Four challenging learning 
games that are the favorites of 
our friendly alien. Helps your 
child to develop logical 
reasoning ability. 

$24.94 list 

LotsaBytes price: $12.95 

3. These 3 Fun-Day learning 
games will help with intellectual 
development, hand/eye co- 
ordination, logic, spatial, and 
analytical abilities. 

$24.95 list 

LotsaBytes price: $12.95 
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An 



Atari 

BASIC Tutorial 



PART 2. 



by Philip Altman 



In the first article of this tutorial, we reviewed the 
structure, function and location of the memory tables 
that BASIC constructs as a program is entered. We 
looked at the process of tokenization and the format 
of tokenized program lines in the statement table. A 
program was presented to display lines in tokenized 
form. Now we'll analyze a few simple lines using this 
program, then focus on how BASIC builds and exe- 
cutes a program. 

Program lines — examples. 

First, type NEW to clear BASIC'S tables, Now enter 
Program 3. When READY appears, type the following: 

le K=s 

28 A$="TEST" 

39 LIST 

48 K=5:LIST 

Run the program with GOTO 32000 and display Line 
10. This is what you'll see: 

18-8-15-15-54-134-45-14-64-5-8-8-8-8-2 
2 

Refer to the discussion of a tokenized line in Part 
1. Recall that the first two bytes are the line number 
in two-byte form, in this case, JO. The next two are 
the line and statement lengths, respectively. Note that 
they are equal, since there is only one statement in 
the line. Token 54 is the implied LET, which BASIC 
inserts before the variable X. This variable is rep- 
resented by token 134, since it is placed in the vari- 



able name table after the six variables in Program 2 
(128-133). The " — " operator separates the variable 
from its BCD value, a six-byte numeric constant pre- 
ceded by a 14 token. The line then ends with the 
terminator 22. 

Now do the same for Line 20, yielding the follow- 
ing: 

28-8-14-14-54-135-46-15-4-84-69-83-84- 
22 

Here the line number is 20, and the length is 14. 
Note that the string name, A$, has been assigned the 
next available token, 135, and that BASIC uses a dif- 
ferent " = " operator (46) for string equality. The string 
"value," TEST, is preceded by a 15 (denoting a string 
constant) and a 4 (string length). The following bytes 
are the ATASCII values for T, E, S, T, as can be seen 
from the character dump. The line again ends with 
a 22 terminator. 

Continuing with Line 30, we get: 

38-8-6-6-4-22 

Note that the statement, LIST, is represented by 
a 4 token. Since a one-statement line is the shortest 
one allowable in BASIC, each line must have at least 
six bytes. 

Lastly, view Line 40 and see what happens when 

(continued on page 61) 



A 

ATARI 

$69.95 (Rom) 
$49.95 (D or C) 



Vastly SUPERIOR to any tronslation programs 

available! FOR ATARI 

1200XL/600XL/800XL with 64K. 

(Please specify computer model number!) 



THE 

XL "FIX"! 



A 

ATARI' 

$69.95 (Rom) 

$49.95 (D or C) 



Thie Atari XL series computers represent power, sophistication, and 
flexibility virtually unrivalled in todays Home Computer Market. 
With "approximately" 30-40% of existing software being "incom- 
patable", a real, and serious problem exists. Because of this we 
have developed THE XL "FIX"! 
ADVANTAGES over cheaper "translation products": 

1. The XL "FIX"! is capable of fixing more software ... an estimated 
30% more software! 

2. The XL "FIX"! is available in DISK, CASSEHE, and now ROM! 

3. XL "FIX"! versions fix ALL THREE types of software (Disk - Cassette - 
and Cartridges!) 

4. The XL "FIX"! (disk or cassette) adds OVER 4K of usable RAM to your 
computer (anyone using Data bases or Word processors will really 
appreciate this feature!) 

5. You never have to hold the OPTION button down on 600XL or 
800XL computers! 

6. VERY IMPORTANT! You need to load the XL "FIX"! only once . . . you 
canchangedisks, cassettes, or cartridges without rebooting the XL 
"FIX"! each time (disk or cassette)! 

7. The ROM version is instantaneous upon computer power up, has o 
high speed cursor, is instantly swifchoble toyour original operating 
system, will work with 16K 600XL's, and more! 

The XL "FIX"! .... another SUPERIOR product! 64K required! 
DISTRIBUTOR/DEALER inquires welcome 



A 

ATARI 

ONLY 

$49.95 



PROTECT your DISK programs and 
files BEFORE lending thenn out! 

THE 

^TROTECTOR"!™ 



A 

ATARI 

ONLY 

$49.95 



Includes hardware and software! The "PROTECTOR" 
produces a true BAD SECTOR GENERATOR which will allow you 
to create BAD SECTORS wherever you wish (approximately 10 
per second!). You'll never hove to tool with ridiculous speed 
adjustment or tope jerking schemes again! Simpie do it 
yourself installation requires 15 to 20 minutes! 

The DISK software is the most versatile that we've ever seen 
and it's lightning FAST! Allows you to move and rearrange data 
anywhere on the disk, scrambles directories making them un- 
occessibie to others, and offers INSTANT mapping of file disks 
(requires one second for ENTIRE disk!). Simple operation. 

All these features ore done from a 720 sector FULL VIEW 
map for total operator viewing and simplicity! 



Multiple drives 
Digifial SECTOR indicator 
Directory scrambler 
Moves/arranges data 
Selectable read/write 
Selectable start/end 
Hex conversion 
Disk Duping 



Disk mapping 
Instant map 
Compaction 
Fast formating 
Auto-formating 
Bad sector memory 
Instant restart 
Multiple copy function 



DEALER/DISTRIBUTOR INQUIRIES WELCOME! 

Our other fine products include 
THE "PIU" and THE "SILENCER". 



Mostercard-Viso-Money 
Order or Cashier Check. 
Phone (716) 467-9326 

Please specify computer 
model number! 



Send $49,95 ($69.95 for Rom) 
plus $4 shipping and handling 
(N.Y.S. residents please add 7%) to: 
COMPUTER SOFTWARE SERVICES 
P.O.Box 17660 
Rochester, NewYork 14617 



Send $49.95 plus $4 shipping 
and handling (N.Y.S. resi- 
dents odd 7% sales tax) to: 
COMPUTER SOFTWARE 
SERVICES 
P.O. Box 17660 
Rochester, New Yortc 14621 
Phone Order: 
(716) 467-9326 



Mastercard-Visa-Money 
Orders or Bonk Checks. Atari 
is a TM of Atari Inc. The 
"PROTECTOR" is a TM of 
COMPUTER SOFTWARE 
SERVICES (division of S.C.S.D., 
Inc.) 100% WARRANTY 
(replacement only - no 
refund policy.) 



< Y A n I . '■o' years they said it couldn't be done . 

ONIY 

$149.95 



THE 

"IMPOSSIBLE"! 



® they claimed! 



A 

ATARI- 

ONLY 

$149.95 



Backup aimost any disk currentiy available (even heavily protected programs) with an UNMODIFIED disk drive! 

Works with ANY disk drive! 

PURPOSE: The "IMPOSSIBLE" was developed in response to the estimated half million disk drive users that own a drive other than the Atari 81 (Indus, Per- 
com, Trak. Rana, Astro, etc.) that wish to BACK UP their protected software. Due to a radically new technology developed by Computer Software Ser- 
vices, moditication to your disk drive has been eliminated! The advantages are obvious! Drive warranties are not violated, the chance accidental 
damage has been eliminated, etc.. etc. 

OPERATION: The "IMPOSSIBLE"! consists of a disk program (unprotected so you can make as many backups as you wish) and a 4K STATIC RAM pack 
which is inserted intovourcompufer(nosoldering!)The"IMPOSSIBLE"i will readyourprogramdisk and then re- write it in on unprotected format! You may 
make additional backup copies using a sector copier or even regular DOS! Because your backup copy no longer has BAD SECTORS or EXOTIC FORMATS, 
the program data can now be manipulated into DOS compatoble files (even double density!), fransfered to cassette, etc. (with the aid of our Satellite 
programs!) No user programming knowledge required. A few programs require logical thinking. 
FEATURES: 1. Backup protected disks 5. AFSD-Automotic FUZZY Sector Discriminator 

2. Handles most MULTI-LOAD programs 6. Expands computer memory to 52K usable 

3. Makes DOS files (with Satellite option) 7. Simple NO SOLDER installation 

4. Up to 90K data input capable 8. Satellite expandable 

PROJECTED SATELLITES: A "COMPACTOR" program which will convert your program into DOS compatoble files (double density compatable!) for the 
storage of several programs on one disk. A "COLUMN 80" program for Word Proccessing, etc. It allows 80 columns on the screen! The "XL-MATE" wil! oliow 
programs mode with your 400/800 "IMPOSSiBLE"! to now play on your XL Computer! The METAMORPHOSES II program will ollowyou to convert your pro- 
tected CASSETTES into disk DOS files and vice-versa. All satellite programs must be used with inconjunction with The "IMPOSSIBLE"! 
REQUIREME NTS: The "IMPOSSIBLE" diskette, the 4K STATIC RAM pock, o 400 or 800 computer (please specify!) with 48K and "B" Rom's. NOTE! The very old 
ATARI computers were shipped with "A" Rom's which hod some serious "Bugs". Even if you don't own an "IMPOSSIBLE," you should upgrade to "B" Rom's 
(simple to install!) We have them available at a very inexpensive price. CALL US! "XL" version available soon! 

NOT A PIRATING TOOL: We at C.S.S, did not design The "IMPOSSIBLE"! to put Software Manufactures out-of-business overnight! Nearly all of our products 
have been "ripped-off" by industry parasite who have little or no ability to develop a product of their own so we can sympathize with their dilemma. All 
C.S.S. products have built-in safe guards which prohibit their use for flagrant pirating. The "IMPOSSIBLE"! Is no exception! While The "IMPOSSIBLE"! back- 
up the most heavily protected programs, it also checks to see that the 4K STATIC RAM pack is installed before allowing the backup copy to 
execute! 



EXAMPLES: The "IMPOSSIBLE"! has been tested on 300 of the most pop- 
ular and heavily protected programs we could find. With nearly 4000 
programs for Atari, we DO NOT guarantee that it will backup all pro- 
grams in the post-present-and future! We will supply updates at $6 each 
(non-profit!) if and when necessary. Programs we have successfully 
backed up include: Blue Max, Visi-coi, Archon, Mule, File Manager 800 
■-, Syn Calc, Syn File, One on One, 7 Cities of Gold, Super Bunny, Load 
Runner, Drol, and Gumboil iust to name a few! 



Mosfercard-Visa-Money 
Orders or Cashier Check. 
Phone (716) 467-9326 

Please specify computer 
model number! 



Send $149.95 plus 

$4 shipping and handling 

(N.Y.S. residents please odd 7%) 

COMPUTER SOFTWARE SERVICES 
P.O. BOX 17660 
ROCHESTER, N.Y. 14617 
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we combine two lines into one witli two statements. 
We get: 

48-0-18-15-54-134-45-14-64-5-0-8-8-8-2 
0-18-4-22 

What previously required a total of 21 bytes now 
uses 18. Thus, consolidating short program lines saves 
memory. Since this line contains two statements, the 
line and statement length bytes are no longer the 
same. Token 20, end-of-statement, separates the two 
statements in the line. The next byte {18) is the cu- 
mulative statement length, which now equals the line 
length, because this is the final statement in the line. 
The editor. 

BASIC can be divided into two functional parts, 
the program editor and the program executor. The 
editor is normally in control when no program is run- 
ning. The user interacts directly with the program 
editor, which waits for a line, usually from the key- 
board. When a carriage return is entered, the oper- 
ating system turns the line over to BASIC. Characters 
are placed one by one in a 128 -byte input buffer lo- 
cated at address 1408. Note that any line longer than 
128 bytes will spill over into page 6 (1536-1791). Page 
6 is free memory but may be used by some programs. 
As the tokenized line is built, tokens are placed in 
a 256-byte output buffer beginning just above LO- 
MEM and extending to the start of the variable name 
table. When tokenization is complete, the line will 
be moved from here to the statement table and exe- 
cuted if in immediate mode. 

Want to call the editor on your own? BASIC's cold- 
start entry point is at 40960. Jumping to this address 
initializes BASIC and clears any program in memory. 
Just enter the following line: A= USR(40960). If you 
want to preserve your program, simply enter BASIC 
at 41037. 

Once BASIC has a line, it checks the BREAK key. 
If pressed, the line is ignored, and BASIC returns to 
the input mode. Otherwise, tokenizing begins. First, 
the line number is processed and inserted in the first 
two positions in the output buffer. A line consisting 
of a number only is searched for in the statement ta- 
ble and deleted when found. Lines with no number 
(LIST, RUN, etc.) are in immediate mode and are as- 
signed line number 32768, higher than any legal BA- 
SIC line. 

This line number flags the line for execution once 
tokenization is complete. The next two output buffer 
bytes are reserved for the as yet incomplete line and 
statement length values. BASIC then compares the 
first statement in the line with all the entries in the 
ROM statement name table. If the statement is found, 
the corresponding token is placed in the output buffer. 
Any unfound statement is assumed to be an implied 
"LET" preceding a variable (token 54). Control is now 
temporarily turned over to the pre-compiler. 

In Part 1, we mentioned that Atari BASIC pre- 
processes program lines. Thus it differs from some 



other interpreted languages and can detect certain er- 
rors before execution. This is the function of the pre- 
compiler. 

The pre-compiler is made up of a complex set of 
logical rules which form BASIC's grammar. Testing 
statements for grammatical accuracy is called "syn- 
taxing" and proceeds through a sequence of pass/fail 
tests. The rules governing each statement are con- 
tained in a ROM table beginning at 42509 (?42501 
for XLs). The complete operation of the pre-compiler 
is covered in detail in the Atari BASIC source book, 
but is beyond our scope here. 

One of the pre-compiler's tasks is to identify and 
process each variable. First, the pre-compiler tests to 
see if the variable name is a valid one (begins with 
an upper case letter, etc.). If not, processing stops. 
Otherwise, the variable name table is searched for the 
variable. It the name is present, the variable is already 
known to BASIC, and its token is inserted in the out- 
put buffer. Any name not found must be new, so the 
name is inserted in the variable name table, an eight- 
byte variable value table entry is created, and the vari- 
able is assigned the next unused token (> 128). This 
token is then placed in the output buffer. 

When its tasks are complete, the pre-compiler re- 

(condnued on next page) 
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A series of subliminal programs that work sight unseen 
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turns pass or fail. Let's first assume a syntax error was 
detected (fail). BASIC processes this line as an error 
line, converting the character at the current position 
in the line to inverse video. Token 55 (ERROR) is 
next inserted at the start of the line in the output 
buffer. The rest of the line is then transferred, un- 
tokenized, to the output buffer and then to the state- 
ment table, where it is saved, along with the rest of 
the program. When listed, this line will be preceded 
by ERROR -. Next, any variable names defined in the 
line are removed from the variable name table and, 
finally, the bad line is listed. The editor is now ready 
for the next line. 

If "pass" is returned, the pre-compiler detected no 
problems. Tbkenizing then continues, as we've des- 
cribed, until BASIC reaches the line's end. When it 
does, the job is done. The line length byte is updated, 
and the line is inserted in its correct numerical posi- 
tion in the statement table. Now, BASIC determines 
if the line is to be executed. If so, control is trans- 
ferred to the program executor. 

The program executor. 

The program editor has created BASIC'S tables and 
checked each line for correct syntax. The role of the 
program executor is to carry these statements out. The 
process of execution is overseen by execution con- 



trol, a routine beginning at 43359 (43358 for XLs). 

Execution control directs the execution of program 
statements one by one, beginning with the immediate 
mode line. Like the editor, it tests for BREAK to see 
if you've changed your mind. If not, it retrieves the 
first statement token, using it as an index into the 
statement execution table at 43520 (43515 for XLs). 
In the table, in token order, are addresses of the in- 
structions which tell BASIC how to execute its state- 
ments. Control is transferred to the appropriate ad- 
dress, where the statement is processed. After process- 
ing, BASIC usually returns to execution control. 

Let's consider two simple examples. First, take the 
immediate mode line, LIST <CR > . We've seen how 
this line appears when tokenized. Because the line's 
in immediate mode, the editor sends it to execution 
control for processing. Execution control skips to the 
first statement token, 4 (LIST), retrieves address num- 
ber 4 from the statement execution table, and goes 
there to execute LIST. The program is now listed. 
BASIC then returns to execution control. 

Compare this with the immediate mode line, RUN 
< OR > . In tokenized form, this line is identical, ex- 
cept that the token for RUN, 37, replaces the one 
for LIST. Execution control gets address number 37 
from the statement execution table as its destination. 
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$49.95 
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BUFFERED PRINTER INTERFACE 



Can You Print This? 
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RUN directs execution control to execute each state- 
ment in every program line, from the beginning of 
the statement table. Statements which invoke execu- 
tion control and operate in a similar way include: 
CONT, GOTO, GO TO and GOSUB. 

At the end of each statement, execution control 
checks for the line's next statement, to see if it has 
more to do. If it's at the line's end, it tests to see if 
the line was in immediate mode. If so, execution con- 
trol is done, so control returns to the program editor. 
Otherwise, execution control moves to the next line, 
continuing to the program's end. Then BASIC returns 
to the editor and waits for your next command. 

Statement execution. 

We can't detail the steps involved in the process- 
ing of each BASIC statement. But, to clarify, let's trace 
through the execution of LIST, one of BASIC'S more 
complex statements. We've seen how execution con- 
trol uses the statement token to get the execution rou- 
tine's address in the statement execution table. 
Instructions for LIST begin at 46211 (46261 for XLs). 

In carrying out LIST, BASIC reverses tokenization, 
converting tokenized lines back to characters (a rela- 
tively simple task, as no syntax checks are needed). 
BASIC can LIST a group of lines — or an entire 
program — to any one of several devices (e.g., E:, P:, 
D:). So, the most general form of the LIST statement 
would be: LIST <device> <filename> <startline>, 
<endline> . In executing LIST, then, BASIC must 
determine which, if any, of these parameters is speci- 
fied. It assumes that the entire program is to be listed 
to screen. Then it examines the LIST statement. If 
a device/filename is given, lOCB #7 is opened to the 
device and used. If either or both line numbers are 
found, they're saved as starting and ending lines. 

Now BASIC lists each line, statement by statement. 
Each token is categorized by type. Statement, opera- 
tor and variable tokens are used as indices into the 
statement name, operator name and variable name 
tables. From these, their corresponding names are re- 
trieved. Numeric constants beginning with a 14 token 
are converted from BCD to character format and dis- 
played. String constants start with a 15 and are not 
stored with quotes. String length, which follows, tells 
BASIC how many characters to allow before printing 
the listing's final double quote. When processing is 
complete, BASIC returns to execution control. 
Wrapping up. 

We've arrived at the end of the Tutorial but only 
scratched the surface of Atari BASIC. Hopefully, this 
introduction has shed light on the structure and oper- 
ation of BASIC. There are details not covered here, 
so, if you're eager to learn more, consult one of the 
texts mentioned earlier. The more you learn about 
your computer, the more you'll enjoy it. D 
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Dump your Graphics 7+ and 8 screens (created with MicroPainter, 
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and modify field lengths. Features Report and Label Generation. This 
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48K disk Only $29.95 



Improve Your Math Skills With 



EoMPUTER 
ISjsSISTED 

IHrogram 
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". . . can easily compete with the high- 
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by IMargie Bliss and Jerry Kwit 



48K disk 



Only $19.95 
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YOU HAVE ALREADY MADE 
YOUR FIRST MISTAKE! 

You thought that cassette recorder 
would handle your storage needs. 

WRONG 

DONT MAKE ANOTHER ONE! 

You think you need a disk drive to 
solve your storage problems. 

WRONG 

YOU NEED 2 DISK DRIVES! 

Any serious application practically 
demands at least 2 drives. 

WORD PROCESSING 

SPREADSHEET 

DATA BASE MANAGEMENT 

MAILING LIST SOFTWARE 
All of these are made more powerful 
and, at the same time, easier to use if 
you have two disk drives. 
So now it will cost twice as much, 

^*9h*? WRONG 

You need an Astra single or double 
density dual disk drive. Two drives 
in one 



AND NOW ASTRA HAS THREE 
MODELS FOR YOUR ATARI 

ASTRA 1620 

Our original single or double density dual disc drive. 
Two drives, for the price of one. 
(360 KBYTES) 

ASTRA 2001 

All of the features 

of the 1620, but 

with improved 

circuitry, rotary 

doors, and direct 

drive motors. 
(360 KBYTES) 




99 



ASTRA "BIG D 

Double sided, single or double density, 
dual disk drive. 
(720 KBYTES) 
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OKIMATE 10 

OKIDATA 

532 Fellowship Road 

Mt. Laurel, NJ 08054 

(609) 235-2600 

$239.00 



by Charles Bachand 



At last! Someone has brought out a color printer 
for the Atari. My prayers have been answered. No 
more wasted packs of Polaroid film to throw away, nor 
will I ever again have to run down to Radio Shack 
for a set of pens for the 1020 plotter. Nope, never 
again. I found the ultimate printer. . .or so I thought. 

The Okimate has to be one of the neatest printers, 
technology — wise, that I've seen in a long time. It's 
small, well styled and highly versatile for a unit that 
takes full size perforated or single sheet paper. This 
printer will actually work with both the Atari and 
Commodore lines of computers; you merely specify 
which Okimate "PLUG 'n PRINT" interface module 
you need when ordering. If you want to use the Oki- 
mate 10 with both brands, you need buy only one 
printer with two interface modules. 

You're getting warm! 

What you end up with is a thermal printer that 
doesn't use thermal paper. Let me explain that a lit- 
tle better. 

Most thermal printers use special paper that's chem- 
ically treated to turn dark when exposed to heat. You 
must use this treated paper for the system to work — 
which means you can't use personal or business sta- 
tionary on these units. Also, since the paper only 
comes in one color (usually black or blue), multi-color 
screen dumps are definitely out. 

The Okimate 10 does not have these limitations. 
It uses a ribbon . . .a very special ribbon. The printer 
literally "melts" the ink (a wax-based substance, con- 
taining solid pigments) off the ribbon and onto the 
paper. 

Even though the printhead can become quite warm 
during extended periods of operation, you need not 
worry that the printer will burst into flames. When 
the operating temperature of the printhead becomes 



too high, the operating speed is automatically reduced, 
allowing the head to cool off. By the way the print- 
head on the Okimate 10 is replaceable, just like those 
found on Epson printers. 

Feature parade. 
The Okimate 10 does many of the things that other 
printers can do— like European characters, graphics, 
adjustable line spacing and multiple font sizes— so I 
won't talk about them here. Instead, we shall examine 
the features that are unique to this printer. 

Reverse printing — The Okimate 10 will out- 
put in inverse when the appropriate control code 
is sent to it. This can be used to highlight your 
text by printing white letters on a black back- 
ground. 

Repeating graphics — Here is a strange one 
that I'm surprised I haven't seen in other printers. 
When printing repeating graphics, graphics that 
do not change for an entire line (as in a border), 
you normally have to send a code to enter the 
printer's graphics mode and then output a byte 
that represents the graphic pattern x number of 
times. With the Okimate 10, things are greatly 
simplified through the repeat graphics command. 
The printing of hundreds of bytes is now reduced 
to the printing of only three— when you send 
a CHR$(154) after entering the Okimate's graph- 
ics mode, followed by a byte representing the re- 
peat count and a last byte for the graphic image. 
Voila, a nice border in only three bytes. 

Fine print positioning — This one allows you 
to start printing anywhere on a line with resolu- 
tion down to l/60th of an inch. You can almost 
think of this as a very accurate TAB instruction 
that will work with text as well as graphics. 

Full color printing — The Okimate 10 can 
print both text and graphics in full color through 
the use of a special ribbon that contains alter- 
nating areas of the three primary colors— yellow, 
red (magenta) and blue (cyan). The printer makes 
three passes, one for each color, to produce a line 
in full color. Because of this, color ribbons are 
consumed three times faster than black ribbons. 

(continued on page 78) 
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16K C 

by Jeff Brenner 

The ability to intermix graphics and text on the 
same screen is a powerful, useful computer feature. 
On the Atari, the mixing of the two modes has been 
accomplished in several ways, but these methods have 
limitations or problems. The most popular method 
is to change the Atari's display list. 

The display list is a program which instructs the 
video chip to display specified graphics modes. As the 
display list is contained in RAM, it can be repro- 
grammed to display a combination of graphics modes 
on the same screen. This technique is the easiest for 
putting graphics and text on the screen. However, it 
is only a partial solution. The display list allows lines 
of graphics and lines of text to coexist on the screen, 
but it does not provide for mixing the two on one 
screen line. Thus, this technique is severely limited. 

Another method involves rapidly switching the dis- 
play from a graphics screen to a text screen so that 
orie will appear superimposed on the other. While 
this permits both text and graphics to lie on the same 
screen line, an eye-straining flicker results from the 
alternating screens. In addition, the display seems 
faded, as each screen loses one-half of its normal 
luminosity. 



This article presents the ultimate method for com- 
bining the two modes. The Graphics Overlay pro- 
gram listed here allows text and graphics to appear 
simultaneously on the same screen and line. The dis- 
play is of full intensity and is flicker-free, while the 
graphics are completely independent of the text. 

How it works. 

The secret to this ideal graphics and text mixing 
program lies in the Atari's celebrated player/missile 
graphics capability. The superimposed graphics are 
actually the Atari's display-independent players. The 
term "player" denotes an 8-bit wide object (also 
known as a "sprite"), which can be placed at any po- 
sition on the screen without interfering with the nor- 
mal display. 

Apparent problems. 

While using the players to display graphics seems 
like a great idea, you might recall that each player 
has a maximum length of 8 pixels. The screen is com- 
posed of 160 of these pixels, or color clocks, horizon- 
tally Furthermore, the Atari has only four players. 
Therefore, displaying each player side by side would 
yield a maximum of 32 pixels horizontally; apparent- 
ly inadequate for reaching across an entire screen. 
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Atari 600 XL 'Call 
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850 Interface '139 
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1020 40-CQlumn Color Printer »69 

1025 80-column Printer '199 

1027 Letter Quality Printer... '249 
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1050 Disk Drive '229 

Touch Tablet •60 

Light Pen 149 
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Donkey Kong Jr '36 

Eastern Front '15 
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PROGRAMMING SERIES 

Assembler Editor '30 

Microsoft Basic II '45 

Atari Logo '65 

Atari Writer '35 
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Atari Logo 
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HOME MANAGEMENT 

Synfile •45 
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Syntrend '45 

Electronic Arts 
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Archon 'Call 
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Enchanter '33 

Soccerer '33 

Infidel '33 

Sea Stalker '33 



Holiday Special 
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15X '349 

Powertype Daisy Wheel '325 



PRINTERS 

Epson 'Call. 

Okidata 'Call 



Special of the Month 
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MODEMS 

Hayes Smart 300 '195 

Modem Cable to 850 '29.95 



Holiday Special 
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^195. GO 
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Holiday Special 
Indus G.T. 
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FLOPPY DISK 

Elephant SS/SD (10) '15.50 

Elephant SS/DD (10) '17.50 

Verbatim SS/DD (10) '21.95 

MONITORS 

Amdek Color 1 + '249 



Holiday Special 
Commodore 1702 

«245.00 
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Features heavy duty canvas with vinyl 
interior, waterproof. 

Atari 800 XL '6.99 

810 Disk Drive '6.99 

Epson Printers '7.99 

Okidata 92 '7.99 



Special of the Month 
SUBLOGIC 

Flight Simulator 
534.95 



Ultima III '34.95 

Ordering & Payment Policy 

Prices reflect a cash disccunt. For C.O.D., Visa, and Mastercard add 3%. Fori 

immediate delivery with certified cfieck or wired funds. N.J. resident add 6%. 

Prices subject to change. 



Shipping 

For shipping and handling add 3% (S3 
minimum). Larger shipments require 
additional charges. 



Catalog 

We sell a large selection of hardware 
and software. Send SI for catalog, 
refundable with order. 



MOVING? 



DON'T MISS A SINGLE ISSUE. 

Let us know your new address right away. At- 
tach an old mailing label in the space provided 
and print your new address where indicated. 

QUESTION ABOUT 
YOUR SUBSCRIPTION? 

Check the appropriate boxes below: 

n New subscription. Please allow 4-8 
weeks for your first copy to be nnailed. 
D Renewal subscription. Please include 
a current address label to insure pronnpt 
and proper extension. D 1-year $28.00. 
This rate limited to the U.S.A. and its 
possessions. D Payment enclosed or 
D Bill me. 
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Player 5. 

Creating a fifth player would be of some help. This 
fifth player is composed of the Atari's four l-bit mis- 
siles. It is given a single color register by setting bit 
#4 of GPRIOR (623/$26F). 

The fifth player gives us b more pixels — a total ot 
40 horizontally. This still doesn't seem sufficient for 
a full screen of graphics. To cover the whole screen, 
we need to expand the players. 

Stretching across the screen. 

Locations 53256 through 53259 ($D008-$D00B) 
are the size registers for four of the five players. POKE- 
ing all of these locations with a 3 (setting bits #0 and 
#1) quadruples the width of these players. The size 
of the last player is quadrupled by POKEing 53260 
($DOOC) with a 255. This expands each missile that 
makes up the player. Line 25140 of Program 1 does 
this expansion. Quadrupling the width of each player 
gives us the screen width necessary to cover the en- 
tire screen. 

The step that follows is to position each player ad- 
jacent to the next. Locations 53248 through 53251 
($D000-$D003) are the horizontal position registers 
for the first four players. The fifth player has four sep- 
arate position registers at locations 53252 through 
53255 ($D004-$D007), one for each 2-bit missile. 



ATTENTION 

USER 
GROUPS 

With the reorganization of Atari, we feel that 
the knowledge and support provided by Atari 
user groups are needed now more than ever. 
We are now compiling a detailed article on 
user groups, with emphasis on the larger clubs 
—those with an extensive member base, news- 
letter, activities and, possibly, a BBS. If your 
group has not yet received our questionnaire, 
you may not be on our listing. We do want to 
be thorough, so please send your group's name 
and address to: 

ANALOG Computing 

Attn: Lee Pappas 
RO. Box 23 
Worcester, MA 01603 
(617) 892-9230 



When each player has been expanded, it is 8*4 (8 
times 4) pixels wide. Thus, a player should be located 
32 pixels from the beginning of the previous one. The 
fifth player is placed on the left side of the screen, 
before any of the others, as its memory area resides 
in front of the others. The first four players are then 
placed after the fifth one, in order. Figure 1 shows 
the layout of these players. Line 25150 of Program 
1 puts the players in their proper positions. 

The height of each player is not a problem, since 
players normally extend from the top of the screen 
to the bottom. Single-line resolution is used to ob- 
tain 192 lines on the screen. The resolution of the 
new graphics screen is therefore 40 X 192 (40 b;\ 192) 
pixels. 

Plotting on the overlay. 

Surprisingly, a routine to plot oii this new graphics 
overlay is much faster and less complex than one for 
the normal bit-mapped graphics modes. The main rea- 
son is that each player is exactly 256 bytes away from 
the previous one. Thus, the proper horizontal region 
can be reached by merely incrementing the high byte 
of the memory pointer. 

Specifying a vertical position is even simpler. Since 
each player consists of a stack of bytes, moving ahead 
1 byte moves the position down one line. Thus, the 
vertical position is reached by incrementing the low 
byte of the memory pointer. 

Lines 25170 through 25220 contain a machine lan- 
guage routine which plots on the overlay at specified 
coordinates. Assembly language programmers might 
want to study the assembly listing of this routine, 
which follows Program 2. 

To get an idea of how the plotting is performed, 
we'll use coordinates (35,100) as an example. First, the 
player which contains this point must be found. This 
is done by dividing the horizontal (X) coordinate by 
8 and taking the integer of the result. So, 35 divided 
by 8 is equal to 4.375, the integer of which is 4. So 
we see that the point is located in the fourth player. 
A result of would iridicate the fifth player, which 
precedes the others. 

To determirie exactly which bit of the fourth player 
is to be set, we subtract 8 times the resulting integer 
from the original X coordinate (in effect, we find the 
remainder). In other words, 8*4 subtracted from 35 
is eciual to 3. Thus, the precise horizontal position 
is located 3 bits to the right of the leftmost bit of 
player four. Figure 2 illustrates this position. The dec- 
imal equivalent of a byte with this bit set (binary 
00010000) is 16. 

The vertical position of 100 is then easily found 
by moving ahead 100 bytes in the fourth player's 
memory area. At this memory location, the value of 
16 could be stored, and the proper pixel would be il- 
luminated. The plotting routine actually merges (log- 
ically ORs) the value of 16 with whatever it finds at 
that location. 
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Resetting, or unplotting, a point is done in a simi- 
lar way, but the bit is removed instead of added. 

Adding color. 

Since each player has its own color registers, up to 
five additional colors can be added to the acreen. The 
graphics overlay has five vertical color regions, one 
for each player. The color registers, with their associ- 
ated horizontal positions, are listed below and are also 
illustrated in Figure 1. 

Color Register Location X Positions 

711 ($2C7) through 7 

704 ($2C0) 8 through 15 

705 ($2C1) 16 through 23 

706 ($2C2) 24 through 31 

707 ($2C3) 32 through 39 

Thus, all points with horizontal coordinates from 
through 7 take their color from location 711; those 
from 8 through 15 take their color from location 704, 
etc. To convert the SETCOLOR values into a value 
that can be POKEd into these locations, use the fol- 
lowing formula: 

SETCOLOR _,H,L = POKE _,H«16*L 
Where H - Hue and L = Lumnance. 

Line drawing and screen clearing. 

In addition to the machine language plotting rou- 
tine, a line-drawing routine and a routine to clear the 
overlay are provided. The line-drawing routine is 
based on a popular BASIC algorithm but has been 
converted to machine language for fast operation. The 
routine calculates the positions for the line to be 
drawn and then jumps to the plotting routine to plot 
the points. 

Lines 25230 through 25340 of Program 1 contain 
the data for the line-drawing routine. The screen- 
clearing routine merely stores Os in the player/missile 
graphics memory area. Lines 25350 and 25350 con- 
tain its machine language data. The assembly listings 
of the line-drawing and screen-clearing routines fol- 
low the PLOT assembly listing. 

Using the program. 

Enter Program I and LIST it to cassette or disk (so 
you can merge it with your BASIC programs). To use 
the overlay, your program must first GOSUB 25000. 
This subroutine sets up the players and loads the ma- 
chine language routines into memory. BASIC memory 
is set back by 4K to make room for the player/missile 
graphics memory. This subroutine also sets up three 
variables: PLOT, DRAWTO and CLS. Each of the 
mnemonic variable holds the address of the particu- 
lar function: PLOT contains the location of the plot- 
ting routine; DRAWTO contains the location of the 
line-drawing routine; and CLS contains the location 
of the overlay-clearing routine. 

Using the routines is simple. To plot a point on the 
overlay at position (X,Y), use the following: 
fi=USR<PLOT,K,YJ 



To draw a line from the most recently plotted point 
to position (X,Y), use the following: 
A=USRtDRAHTO,X,Y) 

The horizontal positions (X) are through 39. The 
vertical positions are through 191. Coordinates 
which exceed these ranges are ignored. 

Location 203 ($CB) is used to determine whether 
to plot or erase the points. POKE 203 with a to 
erase points. POKE 203 with a 1 to plot them. This 
is similar to the COLOR statement for a one-color 
mode (like graphics 8): COLOR C = POKE 203,C. 

To clear the overlay, use the following: 
A=tCL5) 

This only clears the overlay; it does not clear the regu- 
lar graphics screen. 

These variables should not, of course, be changed 
by your program. Also, if your program executes a 
CLR command (which clears all of the variables), it 
will have to GOSUB 25000 again to reset them. 
String variables PL$, DR$ and CLS$ should not be 
used by your program, since they contain the actual 
routines. 

Whenever a graphics call is executed (such as graph- 
ics 0), you must reset the player/missile graphics reg- 
isters. A short subroutine at Lines 25130 through 
25160 is provided to do this. Simply GOSUB 25130 
after a graphics statement, and the overlay will re- 
main intact. 

Other graphics modes. 

Although Graphics Overlay was designed primarily 
for use with graphics screens, there is no reason why 
it cannot be used with other graphics modes, as well. 
Graphics can be added to graphics 1 and 2 text, or 
Graphics Overlay can be used to add more colors to 
graphics 3 through 11 (and 12 through 15 on the XL 
models). 

The only problem created by using these modes is 
with the priority of the overlay. You might want the 
overlay to be an "underlay," letting the other graph- 
ics appear on top of the overlay graphics. Fortunate- 
ly, GPRIOR at 623 ($26F) lets us give precedence to 
either the overlay or the playfield (the normal graph- 
ics/text area). To make the overlay appear underneath 
the playfield graphics, POKE 623 with a 20. To make 
the overlay appear on top of the playfield graphics, 
POKE 623 with a 17. 

It should be noted that, when using other graphics 
modes, playfield 3 (the graphics using SETCOLOR 

3, , ) uses the same color register as the leftmost 

player. Therefore, changing the color of one will resuk 
in a change of color in the other. 

Demonstration. 

Enter Program 2 without erasing Program 1 from 
memory. Program 2 demonstrates a few of the many 
possible applications of Graphics Overlay; mixing de- 
signs and text, underlining and highlighting words, 
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creating colorful graphs with labels, etc. Since the 
overlay functions like a regular graphics mode, ani- 
mated graphics and fast-moving games can be created, 
as well. 

The ability to mix graphics and text freely on the 
screen is a luxury afforded by very few personal com- 
puters. Graphics Overlay offers an excellent method 
of simulating this feature. Use it in your BASIC pro- 
grams to create impressive, attractive and colorful 
displays. D 





Summary of features. 


Command 




Effect 


A = USR(PLOT,X,Y) 


Plot a point at x,Y. 


A = USR(DRAWTO,X,Y) 


Draw a line to X,Y. 


P0KE711,C 




Give points in first region color C 
(C = HUE*16 + LUM). 


POKE 704,C 




C = color for second region. 


POKE 705,C 




= color for third region. 


POKE 706,0 




C = color for fourtfi region. 


POKE 707,0 




= color for fifth region. 


POKE 203,1 




Prepare to plot points. 


POKE 203,0 




Prepare to erase points. 


A = USR(CLS) 




Clear the overlay screen. 



rS- 



HORIZOHTAL POSITIONS 



FIFTH 
PLiJYER 



COLOR: 

711 
(S2C7) 



FIRST 
PLAYER 



794 
l52Ce) 



SECOND 
PLAYER 



705 
tS2Cl) 



THIRD 
PLAYER 



706 
tS2C2) 



FOURTH 
PLAYER 



787 
t52C3) 



Figure 1. 

Layout of the players and color 
registers. 



THIRD 
PLAYER 



FOURTH PLAYER 



SCREEN POSITIONS 
52 ^3 34 35 36 17 38 39 



U2 »1 m BIT tt7 ttb ttS tt4 tt3 Ul ttl ttO 



OIOIOI iQlOiOi I lOiOiOiOi 



VALUE: 128 64 32 16 8 4 2 1 
t 

OBit «4 Of fourth player 
=UHSET corresponds to the 

35th horizontal position. 
I rsET Bit tt4 is equivalent to the 
I deciHal value of 16. 

Figure 2. 

Horizontal overlay positions related 
to bit structure and binary values. 



Program 1. 

t^OOO HEM ATARI GRAPHICS OVERLAY 
25818 REM tcJ 1984 Jeff Brenner 
25828 DIM PLS C83J , DRS C192} , CLSS t24J 
25838 RESTORE 25178:F0R 1=1 TO 83:READ 

NUM:PL$(I1=CHR$CNUM) rNEKT I 
25048 FOR 1=1 TO 1?2:READ NUN:I>R$(I)=C 
HR$(NUM] :NEXT I 

25858 FOR 1=1 TO 24: READ NUM: CLS$ CI] =C 
HRStNUM) :NEXT I 

25068 LET PLOT=ADR CPLSJ : LET DRAHTO=ADR 
(DRSJ :CLS=ADH{CLSS> :I=PL0T+21 
25070 H=IHT (I/256J : L=I-H*256 : DRS (177 , I 
77i =CHRS CL3 : DRS tl78 , 178J =CHRS tH> 
25080 DRSC191,1313=CHH$(L) :DRStl92,l?2 
)=CHR$(H} 

25098 IF PEEK (106) /32>INT (PEEK Cie6]i/32 
) THEN 25118 

25100 POKE 186,PEEK(106}-16:GRAPHICS P 
EEK(8?) 

25118 GOSUB 25130:I=PEEK(186>»256:H=IH 
T (1/256) :L=I-H*256 

25128 POKE 204,L:P0KE 205,H:RETURN 
25138 POKE 54279, PEEK(186) :POKE 711,8: 
POKE 559,62:P0KE 53277, 3:P0KE 623,17 
25148 FOR 1=53256 TO 53259: POKE I,3:NE 
KT I: POKE 53260,255 

251S8 FOR 1=0 TO 3:P0KE 53248+1,88+1*3 
2:P0KE 53252+1, 72-8«I:MEKT 1 
25168 RETURN 

25178 DATA 184,104,104,281,40,176,71,1 
85,24,133,206,104,104,201,192,176 
25188 DATA 63,185,32,133,207,166,205,1 
65 , 206 ,74,74,74, 168 ,248,7, 166 
25190 DATA 205,230,285,136,288,251,18, 
18,10,56,229,286,73,255,168,169 
25208 DATA 128,288,240,4,74,136,208,25 
2,164,203,248,7,164,207,17,204 
25210 DATA 56,176,6,164,207,73,255,49, 
204,145,204,134,205,96,184,184 
25228 DATA 104,104,96 

25238 DATA 184,104,104,48,111,201,48,1 
76,107,105,24,133,97,104,104,281 
25248 DATA 8,144,99,201,192,176,95,105 
,32,133,96,162,0,134,214,134 
25250 DATA 217,232,134,219,134,215,134 
,216,165,97,56,229,206,176,9,198 
25268 DATA 216,198,216,165,286,56,229, 
97,133,212,165,96,56,229,287,176 
25278 DATA 9,198,215,198,215,165,287,5 
6,229,96,133,213,165,212,197,213 
25288 DATA 176,23,166,212,165,213,133, 
212,138,133,213,165,216,133,214,165 
25298 DATA 215,133,217,169,8,133,216,1 
33,215,165,212,74,133,218,165,212 
25308 DATA 240,67,208,3,104,104,96,165 
,206,24,101,216,133,206,165,207 
25310 DATA 24,101,217,133,207,230,219, 
165,218,24,181,213,133,218,165,212 
25328 DATA 197,218,176,21,165,218,56,2 
29,212,133,218,165,206,24,101,214 
25338 DATA 133,286,165,287,24,101,215, 
133,207,165,212,197,219,144,6,32 
25348 DATA 0,0,56,176,194,165,96,133,2 
07,165,97,133,286,76,0,0 
25350 DATA 104,165,106,133,209,169,0,1 
33,208,162,16,160,0,145,208,200 
25360 DATA 208,251,230,289,202,208,244 
,96 



CHECKSUM DATA. 

(see page 10) 

25000 DATA 449,721,950,522,709,743,110 
,180,335,888,669,723,409,566,998,8972 
25158 DATA 856,78,251,219,287,0,20,488 
,381,896,495,521,514,772,296,5986 
25300 DATA 189,469,385,455,463,173,388 
,2442 
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Program 2. 

It REM »EHeil5TRATI0fl PR0CRAH 

2« 6IIA#>HICS e: PRINT "5TAIID BY..." 

3« &05BB 25»0«:P0KE 752,1: POKE 263,1 

4« A=USRCCL5} 

59 FMl Y=8 TO 1S6 STEP 6 

6« *=y%RCPLeT,e,96) 

70 A=US«CDRAHT0,39,Y) 

«t A=USRtPL0T,39,9e} 

39 A=USRC»RAMTO,e,Y) 

IM IKXT Y 

110 MICE 711,4*16+2 

126 PM(E 764,6«16+2 

130 POKE 70S,8«16+2 

140 POKE 706,6«16+2 

ISO POKE 707,4*16+2 

160 5ETC0L0R 2,10,0 

170 POSITION 10,10:PRINT "HiX colorful 

4r A9ll iCS" 

100 POSITION 7,13:PRINT "With a screen 

full of text!" 
190 POSITION 5, 22: PRINT "CPRESS START 
FOR NEXT SCREEN}" „ 
200 IF PEEKC53279)<>6 THEN 200 
210 A=USRCCLS) : PRINT CHR$ fl25J :SETCOLO 
R 2,9,4:SETC0L0R 1,0,0 
220 POSITION 2,5:PRINT "Underline word 
S." 

230 POKE 711,104:P0KE 704,104:P0KE 705 
,104 

240 A=USR(PL0T,2,48] 
250 A=ySRtDRAUT0,17,48) 

260 POSITION 24,1S:PRINT "Highlight WO 
rdS." 

278 POKE 706, 236: POKE 707,236 
280 FOR 1=0 TO 7 
290 A=USRtPLOT, 24, 144+1) 
300 A=USRC»RAMTO, 39, 144+1) 
310 NEXT I 

320 POSITION 5,22: PRINT " tPRESS START 
FOR NEXT SCREEN)" 

330 IF PEEK 153279) <>6 THEN GOTO 330 
340 A=USR(CLS) : PRINT CHR$ C125) :SETC0L0 
R 2,0,0:SETC0L0R 1,0,10 
350 PRINT "Create colorful graphs." 
360 POKE 711,7e:P0KE 704,102:P0KE 705, 
134: POKE 706, 166: POKE 707,198 
370 SETCOLOR 1,0,12:SETC0L0R 2,0,0 
380 FOR 1=8 TO 32 STEP 8 
390 FOR J=l TO 6:A=USHCPL0T,I+J,175) :A 
=USRfDRAHTO, I+J, 128-1*4) :NEXT J 
400 NEXT I 
410 POSITION 2,21:PRINT "1980 1981 

1982 1983 1984" 
420 POSITION 0,8:PRINT "S":P0SITI0N 8, 
9:PRINT "A":POSITION 0,10:PRINT "L" 
430 POSITION 0,11: PRINT "E": POSITION 

12: PRINT "S" 
440 'position 5,23:PRINT "(PRESS START 
FOR NEXT SCREEN)"; 

450 IF PEEKC53279)<>6 THEN GOTO 450 
460 A=:USRCCLS) : PRINT CHRS (125) 
470 POSITION 5, 12: PRINT "PRODUCE OVNAM 
IC VIOEO DISPLAYS" 
480 POSITION 10, 23: PRINT "(PRESS START 

TO END)"; 
490 POKE 711,66:P0KE 704,54:P0KE 705,1 
e*16+12:P0KE 7e6,54:P0KE 707,66 
500 A=USR(PL0T,4,9S) : A=USR (DRAHTO, 35, 9 
5) 

510 A=USR(DRANT0,35,104) :A=USR (DRAHTO, 
4,104) 

520 A=USR(DRAMT0,4,9e) :C=1 
530 FOR X=0 TO 39 STEP 2 : A=USR (PL0T,4, 
95) : A=USR (DRAHTO , X , X*2) 

540 A=USR(PL0T,35,95) : A=USR (DRAHTO, 39- 
X,X«2) 

550 IF PEEK (53279) =6 THEN 590 
560 A=USR (PLOT , 35 , 104) : A=USR (DRAHTO , 39 
-X,191-X*2) 

570 A=USR(PL0T,4,104) :A=USR (DRAHTO, X, 1 
91-X»2) 

580 NEXT X:C=C=0:POKE 203, C: GOTO 530 
590 END 



CHECKSUM DATA. 

(see page 10) 



10 DATA 464, 59«, 465, 122, 125, 809, 92, 645 
, 824 , 760 , 525 , 534 , 544 , 542 , 540 , 7587 
160 DATA 714,981,347,599,806,815,405,8 
, 649 , 992 , 974 , 484 , 312 , 252 , 319 , 86S7 
310 DATA 735,582,304,56,127,169,574,13 
2 , 847 , 734 , 573, 639 , 904 , 460 , 397 , 7313 
460 DATA 41,638,572,294,504,605,368,24 
1,764,560,494,858,777,61,6777 



Assembly listing 1. 



1 ATARI 


GRAPHICS OVERLAY 


1 PLOTTINB ROUTINE 






) (C) 1981 JEFF BRENNER 


1 form: 


A-USR(PLDT, 


X, 


r'" 


COLOR 


a 


«CB 






LOW 


s 


»CC 






HIGH 


m 


«CD 






X 


m 


«CE 






Y 

1 


- 


»cf 






*m 


*K600 




; RELOCATABLE 


PLOT 


PLA 
PLA 
PLA 










CMP 


*4« 




IHORIZ POS>39 OR <B 




BCS 


RETl 








ADC 


»24 








STA 


X 








PLA 










PLA 










CMP 


«192 




SVERT P0S>191 OR <0 




BCS 


RET2 








ADC 


»32 








STA 


Y 








LDX 


HIGH 








LOA 


X 








LSR 


A 




IDIVIDE BY EIGHT 




LSR 


A 








LSR 


A 








TAY 










BEQ 


OVER 








LDX 


HI6H 






LOOP 


INC 
DEY 
BNE 


HIGH 
LOOP 




) INC HIGH BYTE 


OVER 


ASL 
ASL 
ASL 
SEC 
SBC 
EDR 
TAY 


A 
A 
A 

X 
»25S 




;find remainder 




LDA 


ttl28 




(FIND CORRECT BIT PATTI 




INY 










BEQ 


NEXT 






LOQPl 


LSR 
DEY 
BNE 


A 
LOOPl 






NEXT 


LDY 


COLOR 




ICDLDR-l TO PLOT 




BEQ 


ERASE 




IIF B - ERASE PIXEL 




LDY 


Y 




; OFFSET FOR VERT PDB 




ORA 


(LOWl , 


,Y 


(MERGE BIT PATTERN 




SEC 










BCS 


CONT 






ERASE 


LDY 
EOR 


Y 
»2S5 








AND 


(LOW) , 


,Y 




CONT 


STA 


(LOW) 


,Y 


) SUBTRACT BIT PATTERN 


RETURN 


STX 
RTS 


HIGH 




IFROM CURRENT TO ERASE 


RETl 


PLA 
PLA 








RET2 


PLA 
PLA 
RTS 






1 RETURN TO BASIC 




.END 







Assembly listing 2. 



ORAWTO ROUTINE BY JEFF BRENNER 

BASED ON BBA BASIC ALGORITHM 
DETAILED BY MIKE HIGGIN5, 
"FAST LINE-DRAWING TECHNIQUE " 
BYTE MAGAZINE, (AUGUST 1981), 
pp. 414-416 

form: a-usr(DRAWtd,x,Y) 



DELTAX 

DELTAY 

ADDX2 

A0DY2 

ADDX 

ADDY 

SLOPECAL 

COUNT 

OLDX 

OLDY 

BRAUTDX 

DBAUTOY 

I 

I 



• B4 
«D5 
«B& 

• D7 
«DS 
(D'!' 
«DA 
*D8 
«CE 
»CF 
97 
9b 



I RELOCATABLE 
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RET2 
HAIN 



PLA 

PL A 
BHI 

CMP 
BCS 
ADC 
STA 
PLA 
PLA 
CMP 
BCC 
CMP 
BCS 
ADC 
STA 
LDX 
STX 
BTX 
INX 
STX 
STX 
STX 
LDA 
SEC 
SBC 
BCS 
DEC 
DEC 
LDA 
SEC 
SBC 
STA 
LDA 
SEC 
SBC 
BCS 
DEC 
DEC 
LDA 
SEC 
SBC 
STA 
LDA 
CMP 
BCS 
LDX 
LDA 
STA 
TXA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
LSR 
STA 
LDA 
8EQ 
B^4E 
PLA 
PLA 
RTS 
LDA 
CLC 
ADC 
STA 
LDA 
CLC 
ADC 
STA 
INC 
LDA 
CLC 
ADC 
STA 
LDA 
CMP 
BCS 
LDA 
SEC 
SBC 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
CMP 
BCC 
JSR 
SEC 
BCS 
LDA 
STA 
LDA 
STA 
JMP 
.ENI 



IHORIZ P0SV39 OR <B7 



RET I 

»4f9 

RETl 

»24 

DRAUTOX |X TO DRAM 



IVERT P03>191 OR <»? 



••0 

RET2 

• 192 

RET2 

»32 

DRAWTOY lY TO DRAW TO 

»e 

ADDXZ 
ADDY 



COUNT 
ADDY2 
ADDX 
DRAUTOX 

OLDX 

SKIPl 

ADDX 

ADDX 

OLDX 

DRAUTOX 

DELTAX 

DRAWTOY 

OLDY 

SKIP2 

ADDY2 

ADDY2 

OLDY 

DRAWTOY 

DELTAY 

DELTAX 

DELTAY 

SKIP3 

DELTAX 

DELTAY 

DELTAX 



IDRAWTOX-OLDX 



IDRAWTOY-OLDY 



IDELTAX<DELTAY? SWITCH 



DELTAY 

ADDX 

ADDX2 

ADDY2 

ADDY 

»e 

ADDX 

ADDY2 

DELTAX 

A 

SLOPECALC 

DELTAX 

RETURN 

MAIN 



I ADD X OFFSET 



ADDX 
OLDX 
OLDY 



lADD Y OFFSET 



ADDY 
OLDY 
COUNT 
SLOPECALC 

DELTAY 

SLOPECALC 

DELTAX 

SLOPECALC 

PLOT 

SLOPECALC 

DELTAX 

SLOPECALC 

OLDX 



ADDX2 

OLDX 

OLDY 

ADDY2 

OLDY 

DELTAX 

COUNT 

RETURN 

• FFFF 

MAIN 

DRAWTOY 

OLDY 

DRAWTOX 

OLDX 

»FFFF 



ISIMILAR TO ADDX 



SSIMILAR TO ADDY 



|C0UNT>DELTAX7 DONE 
(REPLACED WITH PLOT ADDR 



JPLOT LAST POINT 
IPLOT ROUTINE 



Assembly listing 3. 



cls routine, by jeff brenner 
form: a-usr(cls> 



^OIGIT 



PRINTER ACCCSSORIE5 FROM 



DIGITAL DEVICES D^ 



*- tebee (relocatable 



I 

CLS 



L00P2 
LOOPl 



PLA 

LDA leb 
STA «D1 

LDA tte 

STA »DB 

LDX urn, 

LDY »B 

STA (»DB), 

JNY 

BNE LOOPl 

INC SDl 

DEX 

BNE L00P2 

RTS 

. END 



IP/M AREA HI BYTE 
I LOW BYTE - 
■DO lb PAGES 



PARALLEL PRINTER INTERFACE 

Expand your Atari® or Commodore® 
computer with Digital Devices U'PRINT. We 
make it simple to add any printer you choose. 
U'PRINT interfaces feature industry standard 
Centronics parallel connectors to hook up 
an Epson, Star, NEC, C.ltoh, Okidata, or any 
other printer. 



A 



C= 



U'PRINT MODEL A 

• EXTRA SERIAL PORT FOR DAISY 
CHAINING OTHER PERIPHERALS. 

• COMPATIBLE WITH ALL ATARI 
HARDWARE AND SOFTWARE. 

U'PRINT MODEL C 

• EMULATION OF COMMODORE 
PRINTERS, INCLUDING GRAPHICS. 

• COMPATIBLE WITH ALL 
COMMODORE HARDWARE AND 
SOFTWARE. 



Compact, easy to install, and costing only 
$89.95, U'PRINT gives you a choice! 



QJMQi] HFiR 



CENTRONICS PARALLEL INTERFACE 

The PRINTER BUFFER is the low-cost way 
to make your computer even faster! The 
PRINTER BUFFER takes information from your 
computer at high speed, stores it in memory 
and then retransmits it at the slower speeds a 
printer requires. Your computer is quickly free 
from the task of printing so you can do other 
things without waiting. With PRINTER BUFFER 
you can print and process simultaneously. 




call TOLL FREE (800) 554-4898 for more information 
on these peripherals from tm 



^= DIGITAL DEVICES §) 

430 Tenth Street, Suite N205 Atlanta, Georgia 30318 
In Georgia (404) 872-4430; 

• ATARI AND COMMODORE ARE REGISTERED TRADEMARKS OF 
ATARI, INC. AND COMMODORE ELECTRONICS LTD. RESPECTIVELY. 
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BASIC 
Training 



by Tom Hudson 



In this issue of BASIC Training, we're going to do 
a little exploring in the world of computerized artifi- 
cial intelligence, by flowcharting the computer's logic 
for the game we're developing. High Seas. Once we've 
finished outlining this logic, we'll be ready to write 
the game itself. 

Ships ahoy! 

Last issue, we began by looking at the routine which 
would allow the human player to place his ships on 
the playing grid. As you recall, we had to devote a 
good deal of code to error- trapping. That is, we didn't 
want the player to be able to unintentionally (or in- 
tentionally) cheat. 

Fortunately, computers don't cheat unless they're 
programmed to, and ship placement is relatively easy. 
Figure 1 (page 76) shows the code necessary to place 
each ship on the playing grid. 

You will notice that this flowchart is very similar 
to Figure 5 from last issue, except that it does not 
print out any error messages. If the ship doesn't fit 
in the space the computer has tried, it simply loops 
back to location 10 and tries again. 

One special point of interest in the flowchart is the 
third decision diamond. This part of the code checks 
to see if the ship will touch any others if it's placed 
in that location. Having ships placed right next to 
each other is usually a rather undesirable tactic, and 
the computer tries to avoid it. However, people some- 
times put their ships next to one another to confuse 
their opponent. For this reason, about five percent 
of the time, the computer will allow this placement, 
just to make it seem more human. 




Obviously, this flowchart is a simplified version of 
what goes on inside the computer. If we drew a de- 
tailed flowchart, it would be much larger and more 
complicated. For the purpose of this column, this 
flowchart will do for now. 

Let the attack begin. 

Figure 2 (pages 76-78) shows the most important 
routine in High Seas, the computer's shooting logic. 
Without effective shooting, the game would be worth- 
less. Therefore, a large part of the memory High Seas 
uses is devoted to artificial intelligence routines. 

The first thing the AI routine does is determine 
the largest and smallest ships the human player has 
left. This is done so that the computer won't try to 
shoot at a place where a ship couldn't fit. For exam- 
ple, if the aircraft carrier (5 units long) is the smallest 
ship the human player has remaining, the computer 
shouldn't bother shooting at any places where there 
are less than five units of open area. 

After determining the sizes of ships that are left, 
the computer will go into one of two shooting modes: 
semi-random or selective. 

Semi-random shooting is used whenever there are 
no unresolved hits on the game grid. An unresolved 
hit is where a human's ship has been hit by one or 
more shots, but is not yet sunk. If there are no hits 
on the board, the computer is free to shoot wherever 
it wants. 

I call this type of shooting semi-random because 
it works within special parameters. Totally random 
shooting would waste a lot of firepower, because you 
may be shooting at places where the smallest ship 
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Figure 1 
flowcharts. 
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wouldn't fit! Since the smallest ship is the destroyer 
(2 units), the computer is set to shoot at every other 
grid location in semi-random mode. There are two 
possible patterns, and the computer chooses one at 
random. Figure 3 shows one of these patterns. 
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Figure 3. 

Within semi-random mode, the computer always 
tries to maximize its chances of hitting a ship. First, 
it tries to find a location where the largest ship would 






1 


2 


3 


4 


5 


6 


7 


8 


9 


X 




X 




X 




X 




X 






X 




X 




X 




X 




X 


X 




X 




X 




X 




X 






X 




X 




X 




X 




X 


X 




X 




X 




X 




X 






X 




X 




X 




X 




X 


X 




X 




X 




X 




X 






X 




X 




X 




X 




X 


X 




X 




X 




X 




X 






X 




X 




X 




X 




X 



fit both horizontally and vertically. If it can't find such 
a place, it tries to find a location where the largest 
ship would fit either horizontally or vertically. Both 
these searches are done at random. After about 85 
tries, the computer stops searching at random and per- 
forms the same two tests sequentially on each posi- 
tion of the grid. When a good candidate is found, 
the program branches to the firing routine (location 
160 in Figure 2). 

The second type of shooting, selective mode, is en- 
tered when there are unresolved hits on the game 
board. In this mode, the computer must locate the 
unresolved hit on the board, shooting at the locations 
around the hit until the ship is sunk. 

If there is only one unresolved hit on the board, 
the computer does a search around the hit, based on 
the smallest ship left, to see if that ship could fit in 
the direction being tested. If the ship could fit, the 
shot is taken. 

If more than one unresolved hit is present, the com- 
puter follows the line formed by the hits, looking for 
an open area to shoot at. It will keep shooting along 
the line of hits until it sinks the ship or runs out of 
open areas to shoot at. 

Usually, the computer will succeed in sinking the 
ship. However, if the player has placed two ships next 
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ui each other, the computer could score a hit on each 
ship and then run out of areas to shoot at. At this 
point, the computer will begin using the code, start- 
ing at location 150 in Figure 2, which allows it to 
search around the existing hits in order to sink the 
ships that are clustered together. 

When the decision is made to shoot at a location, 
the code starting at 160 in Figure 2 is used to deter- 
mine if the shot was a hit or a miss. If the shot is 
a miss, the program simply goes to the player's shoot- 
ing routine. If the shot was a hit, the computer de- 
cides whether or not the ship that was hit has been 
sunk. If not, the program goes to the player's shoot- 
ing routine. 

Once a player's ship is sunk, the computer must re- 
move the hits that sunk it from the "in progress" hit 
array, so that they won't be considered as active hits. 
Then the player's sunk ship count is incremented. If 
all five ships have been sunk, the game is over, and 
the computer wins. 

We've covered all the primary routines used by High 
Seas, in some detail. Next issue's BASIC Training will 
present the full BASIC listing of High Seas, with a 
breakdown of every major section of code. D 



PICK RANDOM 
SHOT LOCATION 




Figure 2 
flowcharts. 
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(Figure 2 flowcharts continue on page 77) 
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{¥igmt 2 flowcharts conclude on page 78) 



ATTENTION 

ATARI 
XL USERS 

P/M Creator/Animator Fix 



The P/M Creator/Animator program, as 
listed in ANALOG Computing issue 23, 
does not work properly in the XL computer 
series. To make the program operate, change 
the following line: 

20012 DftTfli 208,2,169,160,32,176, 
242,158,4,208,239,198,84,208,221 
,96 

The ANALOG Computing staff would 
like to thank Dave Tammi, of Sault Ste. 
Marie, Ontario for bringing this fix to our 
attention. 
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Figure 2 
flowcharts. 



Review (continued from page 57) 

Not all red and rosy. 

While 1 think that the Okimate 10 printer is a fine 
piece of machinery, I'm afraid that I cannot say the 
same for the "Thermal Transfer Printing Technology" 
that this printer uses. I would in no way consider the 
text output produced to be of "letter quality" as stated 
in Okidata's press release. 

The fault seems to be in the somewhat uneven de- 
posit of ink along the length of the ribbon. This leads 
to letters that are too light and may have segments 
missing. Remember, I'm comparing this against a letter 
quality (a.k.a. Daisy Wheel at $600 + ) printer, which 
cannot possibly do black and white graphics, let alone 
color. 

Before we get off the subject of ribbons, 1 just want 
to say that thei/ don't last as long as I had hoped. A 
black ink ribbon will print about 120,000 characters 
(or about 75 whole pages of text) before needing to 
be replaced — and I can live with that. 

Okimate's ribbons, however, are a horse of a differ- 
ent color (sorry about that). Since a color ribbon gets 
used up three times faster (reinember, it has to make 
three passes for each line), you can get only about 
35,000 characters from one ribbon. Or, in terms of 
color screen dumps (which is what I assume you might 
want the Okimate 10 for), this works out to about 
ten pictures per ribbon. At $6.69 per color ribbon, 
you end up paying about 67 cents per picture. Ouch! 



The software that comes with the Okimate 10 is 
very extensive and well thought out, although not 
without its faults. It will print out files of pictures 
drawn with KoalaPad, AtariArtist and Super Sketch, 
but it generates them so slowly that you practically 
have time to take in the World Series. True, I'm ex- 
aggerating here, but it still took over six minutes to 
produce one screen dump — and that was after all the 
processing that was needed to first load the picture. 

The software also had problems getting certain col- 
ors (like white) to print out properly. For some reason, 
white always came out as a shade of grey. Okidata is 
in the process of updating its software (hopefully with 
machine language routines), but I had not received 
a new version at the time this review was being writ- 
ten. Software is also supplied on cassette, as well as 
disk. The cassette software is an abridged version of 
that supplied on the disk. 

Bottom line. 

Before you hand over your money, I would suggest 
that you ask to see an actual sample printout produced 
by the printer. If your main use will be in generating 
letters, program listings, etc., you may want to invest 
a little extra in another printer. Still, $239 for color 
graphics is very impressive. 

Ultimately, you'll have to decide for yourself. The 
Okimate 10 comes with an Atari-compatible inter- 
face, printer cable, black ribbon, color ribbon, soft- 
ware on cassette and disk, printer paper and, of course, 
an instruction manual. D 
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16K Cassette or 24K Disk 



by Joel Gluck 



It's not easy to write an article to accompany a sim- 
ple graphic demo, and it's probably just as tough to 
read one. But before you race to your computer, plug 
in your Action! cartridge, type in puLse and run it, 
why not take a few seconds to read what it's taken 
a few hours for me to write/ 

For starters, I'll admit that what puLse does is beau- 
tiful. The program draws several brightly-colored hori- 
zontal lines on the screen and makes them expand 
and contract at various rates. This sounds simple, but 
the combinations are almost infinite — and frequently 
complex. When I first wrote puLse and ran it, I shut 
off the room lights and spent a good long time star- 
ing at the screen. No, the effect is not hypnotic, and, 
no, I wasn't on drugs at the time — the fact is that, 
as a human being, I appreciate beauty and puLse gave 
me a sizable dose. 

Despite its beauty, however, puLse is not a work 
of art. To me, a work of art must relate to the human 
experience, and puLse is merely a random and ab- 
stract visual creation. It does not affect me deeply, 
the way a good novel, play or piece of music can. 
The best way to describe it is "emptiness"— puLse 
is empty. Rated as art, it is bad art. 

I'm not saying that I'm going to stop fooling around 
with graphic demos on my Atari 800. All I'm saying 
is that there is more to art than beauty or simple emo- 
tional effects, and this fact is a challenge to myself 
and to all creators of "computer art." Translation: I'm 
still thinking. I hope you are, too. 
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c 



\y 
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Using the program. 

Plug in an Action! cartridge and type the source 
code as written into the editor. Save it to disk or tape 
and then run. 

PuLse is a simple graphic demo. For the greatest 
effect, run the program with all room lights extin- 
guished. Press RETURN to exit the program. Press 
any other keyboard key for new patterns. The pro- 
gram will automatically display a new pattern every 
15-20 seconds. D 



puLse 



Action! listing. 
joeL gLuck - anaLog 



BYTE rtHRAV X C192J , y C192) ,C C192J 
BYTE nuil=[181 
INT ARRAY XdC192) 
CARD ARRAY 1 inept C192) 



PROC pauzCCARD n) 
CARD i 



FOR i=e TO n+n 

DO OD 

RETURN 



PROC introo 

BYTE i,C0L0Rl=799 

Graphics fO) 
pokec7ie,e) 

PokeC752,l) 
Print C" "J 
pauz €30008} 
PositionC17,9) 
Print C"puLse"J 
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pauz (30000) 

Position(13,ll} 

Print C'by joeL gLuck"! 

pauztsoeeoj 

Position(9,l3) 

Print f'frOM ANALOG COMPUTING") 

pauzceoeeo) 

fOR i=0 10 15 DO 
C0L0Rl=15-i 

pauz(200e) 

Oi> 
RETURN 



PROC grlOinitO 

CARD line, reg, col, lun,scrn=88 

BYTE ARRAY gtiacol (8) =^05 

Graphics (10) 
Poke(704,e) 

FOR reg=o ro i do 
col=Rand(l6) 
lun=Hand(9)+4 
gtiacol (reg)=col«l6+luH 

OD 

for line :: TO 151 DO 

1 inept (1 ine)=:scrn+40«l ine 
OD 
RETURN 



PROC pioti8(BYrE x,y,coi) 

BYTE POINTER pixel 
BYTE ARRAY 

COlfil= to 17 34 51 68 85 102 

119 136 01, 

Hask= [15 24ej , 

Hask2= [240 15] 

Pixel=linept(y)+(x R5H l) 
Pixel-^iipixel^ it Mask(x & 1) 

y. (COlfil(COl) 
& nask2(x & 1)) 
RETURN 



BYTE FUNC iDCatelO (BYTE X,y) 

BYTE POINTER pixel 

BYTE ARRAY Hask= [240 15] 

pixels 1 inept (v) + (x R5H l) 
RETURN ( (pi xel"^ £ nask (x & D) R5H 
(((X & 1) KOR IJ LSH 2)) 



PROC drawline(BYTE a,b,c) 
BYTE i 

FOR i=a TO 7^-i DO 
plOtie(i,b,C) 
Pl0tl0(i,191-b,c) 

OD 

RETURN 



PROC initO 
BYTE i,j,S 

grlOinito 
FOR i=0 TO nUM-1 DO 
x(i)=Rand(4e} 
DO 

'!;(i)=Rand(96) 

S=8 

IF i=e THEN 

EXIT 
Fl 

FOR j=8 TO i-1 DO 
IF !;(i)=V(J) THEN 
S=l 
EKIT 
FI 
OD 

UNTIL S=0 
OD 
C(i) = (i MOD 8)+l 

drawl ine (x(i) ,y(i),c(i)) 



xd(i)=(Rand(2}«2-l)«(Rand(3)+l) 
OD 
RETURN 



PROC squeeze (BYTE n) 
BYTE a,i 
INT d 

d=xd(n) 

IF d<0 THEN 

d=-l 
ELSE 

d=l 
FI 

FOR i=l TO (Xd(n)/d) DO 
a=x(n)+d 
IF a>39 IHEN 
xd(n)=:-xd(n) 
EMIT 
FI 
IF d>e THEN 

PlDtlO(x(n),y(n) ,0) 
Plotl0(75-x(n) ,y(n),0) 
Plotl0(x(n),191-y(n),0) 
Plotl0(79-x(n) ,191-y (n) ,0) 
EL5E 

PlotlO (X (n) , y (n) , c (n) ) 
Plotl0(79-x(n),y(n) ,c(n)) 
PlotlO (X (n) ,191-y(n} ,c (n)) 
PlotlO(79-x(n),191-y(n),c(n)) 
FI 

x(n)=a 

PlotlO (X (n) , y (n) , c (n) ) 
Plotie (79-x (n) , y (n) , c (n) ) 
Plotie(x(n),191-y(n),c (n)) 
P lotlO (79-x (n) , 191-y (n) , c (n) ) 
OD 
RETURN 



PROC puLseO 

BYTE i , CH=764 , AT=77 , M5=19 , L5=20 

introO 
DO 

nuH=Rand(6)+5 

initO 

CH=255 

AT-77 

L5=0 

M5=:8 

DO 

FOR i=0 TO nuH-1 DO 
squeeze(i) 

OD 

UNTIL CH0255 OR M5=4 
OD 

UNTIL CH=12 
OD 

CH=255 
Graphics(O) 
RETURN 





Next issue: 

Bounce 
in Action! 
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16K Cassette or 24K Disk 



by Charles Kormos 



You are the commander of a group of forces rebel- 
ling against the evil galactic empire and have just 
received great news from one of your most trusted 
spies. The empire's mother ship is in for repairs at a 
dock inside an asteroid. You know of a long tunnel 
leading to the repair bay where the ship sits helpless. 
The old tunnel is littered with energy pods, unpenetra- 
ble force fields, airlocks, cave-ins, and twists and turns 
far too difficult for any manned craft. But, luckily you 
have three robot ships you can use with your Atari 
computer, TV and joystick. This is your only chance 
to destroy the empire's mother ship. 

Along the way, you will use the joystick to move 
left or right. Pressing the stick forward will engage 
the hyperdrive, which will move your robot inexora- 
bly forward — even through cave walls. Just be care- 
ful not to end up in rock when you come out of 
hyperspace. 

You will use the joystick button to fire torpedoes 
which can blast energy pods and give energy to yotw 



ship, blast cave walls or airlocks. Force fields, however, 
cannot be destroyed by torpedo fire. Watch your ener- 
gy gauge and listen to your engines. If you run out 
of energy, that robot is destroyed. 

Your robot ship must pass through twenty-four 
screens — without bumping into anything or running 
out of energy — to get to the repair bay. 

Now use your scanners. Position your ship so the 
scanner line is in the center of the gauge, and you'll 
be on target to blast through to the defective nuclear 
reactor. One torpedo hit there will nuke the ship. But 
the mother ship is not completely defenseless during 
this time. It will be moving toward your robot, try- 
ing to crush it. 

When you finish this mission, you'll receive three 
more robots and a thirty-six screen mission, with a 
forty-eight screen mission after that one. The author 
has yet to be successful at the final mission, so good 
luck. D 

(Listing starts on page 82) 
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10 REH l;MJil1;Mia by C.KorHOS 

11 REH 

15 G05UB 18eee:P0KE 708, 68: POKE 709,24 

:POKE 710,148:G0T0 LOOP 

28 FOR I=V-M1 TO 4 STEP -HllLOCATE H,I 

.HIT 

30 IF HIT<N34 THEN COLOR N33:PL0T X,I: 

COLOR N32:PL0T X, I: NEXT I: COLOR N32:PL 

OT X,I-Nl:GOTO 50 

40 POP :50UND N1,64-CHIT=N35)»N35,84CH 

IT=N34}«N2,Nie:C0L0R N32:PL0T X,I+N1:I 

F HIT=H34 THEN 90 

SO PLOT X,I:IF HIT=N4e AND NUKE=X THEN 

POP :GOTp MIN 
60 IF HIT>N35 THEN 90 

70 FUEL=FUEL+4:IF FUEL>N38 THEN FUEL=N 
38 

80 COLOR N37:F0R 1=17 TO FUEL: PLOT I,N 
1 ' NEXT I 

90 SOUND N1,N,N,N:FUEL=FUEL-8.3:P0KE 7 
7 Ns RETURN 

158 'restore MftPtMJ :M=M*Nl:IF M=LEMEL T 
HEN TRAP 488 

168 IF H>=LEUEL-N2 THEN RETURN 
170 COLOR N34:PL0T A,N2:DRAMTD B,N2:Z= 
INT CB-A)/N2+A: COLOR N38:PL0T Z-N1,N2:D 
RAMTO Z+N1,N2:RETURN 

288 READ A,B:C=C+N1 :IF C=12 THEN C=N:G 
05UB HAP 

218 Z=USRfML,1570,P0Nl) :Z=USRCHL,P0H1, 
P0M2) :Z=USR(HL, 1588, BARD :Z=USRCML,BAR 
1,BAR2) 

228 COLOR H32:PL0T FUEL,Nl:FUEL=FUEL-8 
.15:S0UND N.20e,N2,FUEL/'e:IF FUEL<=17 
THEN GOTO CRASH 

238 POSITION N2,N2:? CHRS C157J rCOLOR N 
39:PL0T N2,N2:DRANT0 A,N2:PL0T B,N2:DR 
ANTO N38,N2 

248 IF PEEKC53778J<LV THEN Z=INT<B-AJ/ 
N24A: COLOR N35:PL0T Z+RND (N)»N2,N2 
258 LOCATE X, Y-H1,H1T :IF HIT<>N32 THEN 

GOTO CRASH 
268 COLOR N32:PL0T X, V:X=X+tSTICKCN)=7 

AND X<38)-CSTICKCN)=11 AND X>N2} 
278 COLOR N36:PL0T X,Y:IF NOT STRIGCN 
) THEN GOSUB SHOT 

288 IF STICK CN) =14 THEN GOSUB HYPER 
298 POSITION N34,N:? SCORE; :SCORE=SCOR 
E-i^Nl : Z=USR CHL , POHl , 1578) : Z=USR CHL , BARl 
,1588} :GOTO LOOP 
488 A=Nl:B=N35 

418 POSITION N2,N2:? CHR$ C157) ;SHIP$(A 
,B) :A=A+N35:B=B+N35:IF A>491 THEN A=49 
l:B=525 

420 COLOR N32:PL0T FUEL , Nl : FUEL=FUEL-8 
.15: IF FUEL<=19 THEN GOTO CRASH 
438 LOCATE X, Y-N1,HIT :IF HITON32 THEN 

GOTO CRASH 
448 COLOR N32:PL0T X, Y :X=X* CSTICK CNJ=7 

AND X<38)-CSTICKCN)=11 AND X>N2):C0L0 
R N36:PL0T X,Y 

458 COLOR N44:PL0T N18, Nl :DRAHTO 12, Nl 
:IF NOT STRIGCN) THEN GOSUB SHOT 
478 COLOR 43: PLOT ll+SGN CNUKE-X) , Nl :G0 
TO 418 

608 FOR I=N18 TO 200 STEP 5:S0UND N,12 
1,8,N10:S0UND Nl,I,8,Nie:S0UND N2,25S- 
I.8,N10:P0KE 712,I:NEXT I 
618 SOUND N,N,N,N:S0UND N1,N,N,N :S0UND 

N2, N , N , N : POKE 712 , N : Z=USR CHL , POHl , 157 
0) : Z=USR CML , BARl , 1580) 

628 POSITION SHIP,Nl:? SHIP=SHIP-N 

2:IF SHIP<N1 THEN GOTO LOSE 

638 FDR I=N1 TO 500: NEXT I: FOR I=N1 TO 

24:P0SITI0N N2,N2:? CHRSC157) :NEXT I: 
RESTORE 28888 :H=Nl:FUEL=N38:C=N 
658 POSITION Nie,Nl:? "mH(": COLOR N37 : 
FOR 1=19 TO FUEL: PLOT I,N1:NEXT I:SOUN 
D N1,208,N,N2:G0T0 LOOP 

708 FOR 1=288 TO 88 STEP -N18: SOUND Nl 
,I,N,15:P0KE 712,PEEKC53770} 
718 READ A,B:C=C«Nl:IF C=12 THEN C=N:G 
OSUB HAP 

728 COLOR N32:PL0T FUEL.Nl :FUEL=FUEL-0 
.3:P0SITI0N N2,N2:? CHRS C157) : COLOR N3 
9: PLOT N2,N2 



738 DRAHTO A,N2:PL0T B,N2:DRAMT0 N37,N 

2:NEXT IrSOUND N1,N,N,N:P0KE 712,N:RET 

URN 

808 REH HIN 

818 FOR Z=N1 TO 20:P0KE 712, PEEK C53778 

828 FOR D=N TO 255 STEP 2e:S0UND N,D,N 
18, 15: SOUND N1,D+2,N10,15:NEXT D:NEXT 

838 FOR Z=N1 TO 5: FOR D=15 TO N STEP - 
e.5:SETC0L0R N2,N,D:S0UND N,28,N,D:SET 
COLOR N1,N,D:NEXT D:NEXT Z 
848 POKE 7i2,N:P0KE 789,24:P0KE 708,68 

:P0KE 718,148:S0UND N,N,N,N:SOUND N1,N 
II II 

850 POSITION Nl.N:? "I 



MI55I0N 



ftLL ROBOTS DE5TR 



D:G 



ACCOMPLISHED 



868 LU=LW-N2:LEVEL=LEUEL+12: RESTORE 19 
078HtLEUEL:F0R I=N1 TO 48: READ A: HAP CI) 
=A:NEXT I 

878 Z=USR CHL, POHl, 1570) :Z=USR CHL, BARl, 
1588) :G0T0 920 
988 REH LOSE 
918 PO SITION H,N:? 
SQlQBi SCORE: ■■:SCORE:SCORE=N 
928 POKE 755,N:F0R D=N TO N32:NEXT D:I 
F NOT STRIGCN) THEN 958 
948 POKE 755, 2: FOR D=N TO N32:NEXT 
OTO 920 

958 POSITION N,N:? "ROBOTS SENSORS 
ENERGY SCORE: 

968 POSITION N,Nl:? " S $ S *»» ": 
SHIP=5:G0T0 638 

18808 POKE 106, PEEK C106) -8: GRAPHICS N: 
POKE 752,l:P0KE 718,N:DIH HAPC48):X=18 
: Y=23 : L00P=200 : SH0T=20 : HAP=150 
10818 Nl=l : N2=2 : N32=32 : N33=33 : N34=34 : N 
35=35 :H36=36:N37=37:N38=38:N39=39:N48= 
48:N44=44 

18828 DL=PEEK C560) +PEEK C561) »256 : CHSET 
=PEEK C106)«256 : H=N1 : SHIP=5 : CRASH=608 : H 
VPER=7ee : HIN=80e : L0SE=9e8 : N10=ie 
18838 POKE DL+15,7:P0SITI0N 5,N10:? "R 
OBOT RAID": POSITION 30,12:? "by Charle 
!/KorMOS":DIH SHIP$C525) 

10048 FOR I=N TO 1023: POKE CHSETHHI,PEE 
KC57344+I) :NEXT I 

18858 NUSET=CHSET+16: POSITION 5,N18:? 
":POSITION 30,12:? " 

II 

10068 P0H1=CHSET*24 : BAR2=CHSET+104 : POH 

2=CHSET+112:BAR1=NUSET:F0R I=N TO 183: 

READ A: POKE NUSET+I, A :NEXT I 

18878 FOR I=DL+6 TO DL+28:P0KE I,4:NEX 

T I:POKE 756,CHSET/256:P0KE 710,148 

18898 HL=1536:F0R I=HL TO 15e8:READ A: 

POKE I, A: NEXT I:LV=29:LEVEL=25 

10108 FDR I=N1 TO 48:READ A:HAPCI)=A:N 

EXT I:RESTORE 28000 

10110 POSITION N,N:? "ROBOTS SENSORS 

ENERGY SCORE:" 
18128 POSITION N,Nl:? " $ $ S *** 
":FUEL=N38: COLOR N37:F0R 1=17 TO FUEL: 
PLOT I,Nl:NEXT I 

10125 SHIPS=" ":SHIPSC525)=" ":SHIPSCN 
2)=SHIPS 

10130 SHIPS C13)="« « » »"; SHIPS C4 
8)="*** JHt»" 
18148 SHIPS C84)="« »": SHIPS C114 

) -" MKKKKMMHK MKKMICKKK " 

18158 SHIPS C149) = "1C1CKK1CKKMKK KKKMKKMMK 
IClClClCMlCMMKMItMMKlCMMMKldCmClClCMKICK 

m" 

18168 SHIPS C211) ="+4+) *) 4) +) +) +) 4)4)4) 

4)4)4)4)4)4)444 MMICKKMKKXMKICMICMKKKIIKM 

KKMICKKMKKK " 

18170 SHIPS C289) =" 1CMK1(KKKMKK1IKKKMKK>CKK 

18188 SHIPS Ci64)=",, ,,":SHIPSC3 

98)-" " 

Joj — ,,,,,,,,,,,,,,, 

18198 SHIPS C431)=", C C C C C C C C C C C C C C C,":S 

HIPSC472)=" " 

18208 SHIPStSi*i=" ":NUKE=INTCRNDCN)«1 

5)413:RETURN 

19834 DATA 8,8,8,255,255,8,8,0 

(Listing continues on next page) 
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19935 DATA 170,170,130,130,130,138,170 
,170 

19036 DATA 20,85,85,20,20,130,130,130 

19037 DATA 27,27,27,27,27,27,27,27 

19038 DATA 170,195,195,195,195,195,195 
,195 

19039 DATA 175,245,95,250,175,245,90,2 
SO 

19040 DATA 85,85,170,175,175,170,85,85 

19041 DATA 170,170,85,95,95,85,170,170 

19042 DATA 255,255,255,255,255,255,255 
,255 

19043 DATA 170,170,170,170,170,170,170 
,170 

19044 DATA 85,85,85,85,85,85,85,85 
19845 DATA 85,85,0,255,255,8,85,85 
19046 DATA 0,0,60,60,60,60,0,0 

19059 DATA 104,104,133,284,104,133,203 
,104,133,207,104,133,206,160,0,177,206 
,145,203,200,192,8,208,247,96 

19060 DATA 20040,20050,20100,20150,201 
60,20110,20030,20120,20130,20080,20100 
, 20110 , 20060 , 20120, 20130 

19070 DATA 20070,20140,20090,20010,200 
20,20040,20170,20180,20190,0,0,0,0,0,0 
,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

19107 DATA 20040,20010,20050,28038,200 
70,28100,20110,20120,20130,20160,20150 
,20140,20090,20080,20040,20060,20020 

19108 DATA 20010,20100,20150,20050,200 
60,20100,20110,20120,20130,20880,20070 
,20080,20120,20090,20100,20110,20170 

19109 DATA 20180,28198,8,8,8,8,8,8,0,8 
,8,8,8,8 

19119 DATA 28170,20180,20190,20000,200 

10,20058,28818,28858,28838,20070,20030 

,20070,20100,20110,20120,20898 

19128 DATA 28188,28158,28148,20130,200 

80,20878,20060,20050,20040,20030,20020 

, 20010 , 20170, 20000, 20040, 20080 

19121 DATA 20010,20100,20150,20100,201 

10,20120,20130,20120,20130,20160,20110 

, 20848 , 28178 , 20180, 20190 , 20190 

20000 DATA 4,32,5,31,6,30,7,29,8,28,9, 

27,10,26,11,25,12,24,13,23,14,22,14,22 

20010 DATA 14,22,14,22,11,24,8,22,5,20 

,3,18,3,16,3,15,5,16,8,18,11,20,14,22 

20020 DATA 14,22,5,23,6,24,7,25,8,26,9 

,27,10,28,11,29,12,30,13,31,14,22,14,2 

2 

20030 DATA 14,22,14,22,13,23,12,24,12, 

24,14,22,14,22,10,18,11,19,12,28,13,21 

,14,22 

28848 DATA 14,22,14,22,8,28,8,28,8,28, 

8,28,5,31,5,31,11,25,12,24,13,23,14,22 

20050 DATA 14,22,11,20,8,18,5,16,3,15, 

3,16,3,18,5,20,8,22,11,24,14,22,14,22 

20060 DATA 14,22,14,22,13,31,12,30,11, 

29,10,28,9,27,8,26,7,25,6,24,5,23,14,2 

2 

20070 DATA 14,22,13,21,12,20,11,19,18, 

18,14,22,14,22,12,24,12,24,13,23,14,22 

28888 DATA 14,22,13,23,12,24,11,25,5,3 

1 , 5 , 31 , 8 , 28 , 8 , 21 , 8 , 21 , 8 , 21 , 14 , 22 , 14 , 22 

20898 DATA 3,12,3,12,4,13,5,14,6,15,7, 

16,8,17,9,18,18,19,11,28,12,21,13,22 

20io6 DAT^ 14, 23, IS, 24, 16, 25,17,26, 18, 

27,19,28,20,29,21,30,22,31,23,32,24,33 

,24,33 

28110 DATA 24,33,24,33,23,32,22,31,21, 

38,20,29,19,28,18,27,17,26,16,25,15,24 

,14,23 

28128 DATA 13,22,12,21,11,28,18,19,9,1 

8,8,17,7,16,6,15,5,14,4,13,3,12,3,12 

28138 DATA 3,12,3,12,3,13,3,14,3,15,3, 

16,3,17,3,18,3,19,3,28,3,21,14,22 

28140 DATA 14,22,3,21,3,28,3,19,3,18,3 

,17,3,16,3,15,3,14,3,13,3,12,3,12 

28158 DATA 24,33,24,33,22,33,21,33,28, 

33,19,33,18,33,17,33,16,33,15,33,14,33 

X4 22 
28160 DATA 14,22,14,33,15,33,16,33,17, 
33,18,33,19,33,20,33,21,33,22,33,24,33 
,24,33 



20170 DATA 14,22,13,23,12,24,11,25,10, 
26,9,27,8,28,7,29,6,30,5,31,4,32,3,33 
20180 DATA 3,33,3,33,3,33,3,33,3,33,3, 

20190 DATA 3,33,3,33,3,33,3,33,3,33,3, 



CHECKSUM DATA. 

(see page 10) 

10 DATA 342,254,823,500,267,592,339,83 
6,690,440,815,640,536,69,118,7261 
210 DATA 869,140,489,376,761,60,888,84 
8,465,786,275,259,759,788,259,7942 
470 DATA 693,373,641,708,695,757,922,1 
31,412, 554 , 555 , 922 , 744 , 286 , 995 , 9388 
850 DATA 898,572,967,797,190,797,724,6 
63,919,459,227,590,576,217,630,9226 
10868 DATA 726,304,731,381,349,45,751, 
601 , 858 , 309 , 12 , 421 , 937 , 878 , 425 , 7728 
19034 DATA 333,543,161,926,675,595,105 
,117,625,567,935,926,350,750,144,7752 
19070 DATA 150,298,305,954,735,706,730 
, 886 , 611 , 869 , 346 , 901 , 631 , 742 , 787 , 9651 
20080 DATA 879,539,418,420,425,170,141 
,403,405,654,339,341,5134 



i 



ATTENTION SMALL BUSINESS OWNERS 



^ 



Introducing 

THE INVOICER 

By 

MiccaSoft 

Don't pay $200 or more for a comparable package. THE 
INVOICER is designed tor the small business ttiat is on 
its way up. It is for the business person who wants a 
faster and easier way of invoicing orders at a reasonable 
cost. It is so easy to use that anyone can print an 
invoice. 

THE INVOICER uses preprinted invoices. It includes 
features such as optional letterhead formatting, auto- 
feeding, automatic tax calculation, automatic totaling 
and summary totals. 

THE INVOICER is available for the Commodore. ATARI, 
PC and PC Jr. The program requires 48K and a Disk 
Drive. 



$39.95 



Dealer Inquiries Welcome 
VISA, MC, Check or Morney Order 
Please specily type ot computer. 



MiccaSoft 

406 Windsor 

New Braunfels, TX 78130 

(512)629-4341 
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ASTRA 1620 ... 




LIMITED QUANTITIES 

$399.00 

PLUS $10.00 SHIPPING 



INCLUDED ... 
HOMEWRITER 
SMARTDOS 

AT NO EXTRA CHARGE 



ASTRA 2001 $595.00 



SMARTDOS $39.00 



' SMARTDOS is 100% density smart. 
SMARTDOS will sense the density of eacti 
disk in use and automatically reconfigure the 
entire system to tinat density. 
SMARTDOS does not require Ifiat a "system 
disk" lias to remain in the drive, or be conlinu- 
ally inserted and removed in order to use the 
DUP.SYS commands. 

With SMARTDOS you may Copy with query, 
(eliminates specifying each item individually). 
Counter screens - which keeps the user in- 
formed as to what the system is doing and 
where in the task the system is. 
Disk testing for bad or unusual sectors that 
may be corrected. 

RESIDUP feature allows simple yet powertui 
full time availability of DUP.SYS commands 
while leaving your program intact and ready to 
RUN. 

Minimum keystrokes for maximum power, e.g. 
a disk directory is done by pressing only one 
key - the drive number (great for filesearches), 
and " = " may be used to replace '.'. 
The ability to run from 1 to 9 autorun files se- 
quentially. 
Built in disk drive speed check. 

' SMARTDOS is only 34 single density sectors 
long and works with all Atari computers with a 
minimum of 24K RAM. 



FILING SYSTEM $39.00 



FILING SYSTEM allows the user to configure any 
type of data file imaginable. Examples are recipe 
cards, mail lists, reminders lor birthdays, check- 
ups, etc., complete inventories (home and busi- 
ness), personnel files, customer call-ups, price 
list, and much, much more. You may retrieve 
data using any field or combination of fields. Files 
also may be saved, sorted, and printed in a pre- 
set format that you configure. Uses either a 
single or a double density disk drive. 24K mini- 
mum. 



(213) 920-8809 

MasterCard/VISA 

The Programmers Workshop 

5230 Clark Ave., Suite 19 
Lakewood, CA 9071 2 



100 ITEM CATALOGUE 



Cartridge Maker™ 

EPROM BURNER for the 
ATARI® 400, 800 and the NEW XL's 

$159 

***Make your own cartridges for the ATARI' , on the 
ATARI-. 

*** Put your own program in a cartridge by burning ob- 
ject output from an assembler or a BASIC compiler (sucti 
as ABC's) into EPROf^s. 

Programs or duplicates 2K, 4K. BK. 16K EPROIi/ls - 2716 
(2516), 2732. 2732A, 2532, 2764, 2564, 27128. 
Manual, soltware, all adapters included. 
Commands include Help menu. Blank check. Verily Copy 
Display Save to device, Exit to DOS, Load from device, 
Quickload to buller and, of course. Program EPROI^. 
*** Plugs into cartridge slot as a cartridge. No cabling re- 
quired. 

** * User friendly for manual free operation. Only unit v^ilh 
lever activated Textool. Zif sockets for easy EPROIVI ex- 
change! Cartridge Maker™ is fully socketed for ease of 
maintenance. Carries a one-year guarantee! 
** * Can be used with as little as 16K of memory so a disk 
is not needed, but it is fully supported. Can be used with 
ASSEMBLER/ EDITOR Cartridge DOS or AMAC. 

***8K EPROM cartridge boards socketed $15 

(Atari case compatible) with gold lingers for either 2532 or 
2732 EPROMs (without EPROMs) 

*** 16K EPROM cartridge boards socketed $15 

(Atari case compatible) with gold fingers for 2764 EPROMs 
(without EPROMs) 

RADICAL SYSTEMS™ 

2002 Colice Road, SE. Huntsville Alabama 35801 

(205) 539-0521 

CHECK, rvlONEY ORDER or INTERNATIONAL DRAFT MINI- 
MUM SHIPPING $4. C.O.D, ADD S2, Foreign orders welcomed 
but musl be prepaid. Minimum loreign shipping U.S. S15. 

NO SURCHARGE FOR MASTERCARD OR VISA 
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FLOPPY 



Fast, Reliable Repair 

for Atari 810 & 1050 

Disk Drives 



■ 3 Day Turnaround 

■ 90 Day Warranty 

■ $85 Fiat Rate with 
Repairable Exchange 

Dealers — Special Rates 

Available — Ask about 

Express Expedite 

Add $10 shipping & handling. 
Check, MO, Visa, MC 

MPS 

The Disk Drive Specialists 

(916) 786-6550 



Call 8:00-5:00 Pacific Time 
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ATTENTION AT kR\ DISK 
DRIVE OWNERS 

Back up your 
valuable software. 

THE CHIP 

THE CHIP with Archiuer/Edilor Soltware lor Itie Alan 
810 and 1050 disc drives. Includes Disassembler & 
Sector Editor. Includes Custom Formatter and Map- 
per Backs up virtually any disk 

$129.95 POST PAID 

Available soon lor 

oltier Atari compatible disc drives. 

HAPPY 810 ENHANCEMENT 

Complete with Warp Speed software package. Plug-in 
installation — no soldering. Backs up any disc- 
Regular Price $249,95 
LIMITED SPECIAL OFFER $199.95 

Soon available tor other disc drives. 

HAPPY OWNERS 

update your enhancement with Happy Version Arch- 
iver/Edttor. Makes Happy drives compatible with the 
chip. 

$39.95 POST PAID 

All software tor the Atari DISCOUNTED 30% or MORE. 
Discounts on all Atari compatible hardware. 

Send for (ree brochure on any of the above or lor details on our 
software discounls 



SOUTHERN SOFTWARE 

A DIVISION OF SOUTHERN SUPPLY COMPANY 
1879 RUFFNER ROAD BIRMINGHAM, AL 35210 

24 HOUR PHONE 205-956-0986 
Order before n A.M. lor same day sriipping. 
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New LOW Price - Compietei 



a"K»»i 



$299.95 



—GUARANTEED LOWEST PRICES— 

APE FACE S59 95 

MPP MICROPRINT INTERFACE ' '. SSaioS 
MPP 1150 PRINTER INTERFACE$69.95 

MPP 1000 MODEM $129.95 

OSS BASIC $59.95 

SYNFILE $49.95 

SYNCALC $49.95 

FLIGHT SIMULATOR II $39.95 

ULTIMA III $39.95 

ULTIMA III HELP BOOK S12.95 

QUESTRON $39.95 

RETURN OF HERACLES $24.95 

UNIVERSE $69.95 

UNIVERSE PRODUCT GUIDE $12.95 

FLAK $24.95 

CUTTHROATS $24.95 

HITCH HIKERS GUIDE $24.95 

JUPITER MISSION $39.95 

FIELD OF FIRE $29.95 

BEACH-HEAD $29.95 

SEVEN CITIES OF GOLD $34.95 

Please add S2.50 shipping (S6.00 outside USA) 

California residents add 6%. 

Send Stamped Self Addressed Envelope 

for FREE CATALOG 



COMPUTER GAMES + 

Box 6144 

ORANGE CA 92667 

(714) 639-8189 



CIRCLE #139 ON READER SERVICE CARD 



ISSUE 26 



ANALOG COMPUTING 



PAGE 85 




Boot 
Gamp 




by Tom Hudson 



This month, Boot Camp continues its coverage of 
BASIC USR calls, with a couple of new twists, in- 
cluding variable-argument calls. So, if you haven't read 
the last Boot Camp, I urge you to check it out. The 
information it contains is vital to this installment. 

An "average" challenge. 
I hope all Boot Camp readers tried to solve last is- 
sue's problem, which was to write a USR call that 
would accept two arguments and find their average. 
This is done by adding the two arguments and divid- 
ing the total by two. Figure- 1 shows one possible so- 
lution. 



18 RE5L0 


- 


$D4 






28 RESHI 


- 


5D5 






38 


n- 


$0688 






8100 


CLD 




DECIHAL MODE! 


8118 


PLU 




DISCARD n ARGS 


8128 


PLA 




PULL ARG 


1 HI 


8138 


5TA 


ARGIH 


,AND 5AUE 


IT 


6148 


PLA 




,PULL ARG 


1 LO 


8158 


SIA 


ARGIL 


;AND 5AVE 


IT 


0168 


PLA 




■PULL ARG 


2 HI 


8170 


^TA 


ARG2H 


AND 5AUE 


IT 


8186 


PLA 




PULL ARG 


2 LO 


8198 


5TA 


ARG2L 


AND SAVE 


IT 


8288 


LDA 


ARGIL 


ADD. . . 




8210 


CLC 




ARGUMENT 


1. . . 


6228 


ADC 


ARG2L 


TO. . . 




8238 


STA 


TEMPL 


; ARGUMENT 


2. . . 


8248 


LDA 


ARGIH 


;AND. . . 




82S8 


ADC 


ARG2H 


;PLACE IT 


■ M « 


8268 


5TA 


TEHPM 


JIN TEMP! 




8270 


LDA 


ne 






8288 


ADC 


R8 






8298 


5TA 


TEMPH 






8388 


LSR 


TEMPH 


■DIVIDE. . 




8310 


ROR 


TEMPM 


iARGl * ARG2. . . 



0328 




ROR TEMPL 


;BY 2 


8338 




LDA TEMPL 


;AND PUT. . . 


8348 




STA RE5L0 


; FINAL RESULT. . 


8358 




LDA TEMPM 


;IN BASIC'S. . . 


6368 




5TA RE5HI 


;ANSHER AREA! 


0370 




RTS 


;ALL DONE! 


8388 


ARGIL 


«=if+l 


; ARGUMENT 1 


8398 


ARGIH 


»=*+! 




8408 


ARG2L 


«=»+! 


; ARGUMENT 2 


8418 


ARG2H 


«r:«+l 




6428 


TEMPL 


»=«+! 


; TEMPORARY HOLD 


6436 


TEHPM 


»z»+l 




8448 


TEMPH 


»z«+l 




8458 




.END 





• Figure 1. 

This solution is probably very close to the one most 
beginning assembly programmers would come up with 
and is, therefore, less efficient than it could be. We'll 
look at a better solution in a moment, but first let's 
analyze this one. 

Line 100 clears the decimal mode. I know I 
repeat myself a lot on this point, but it's impor- 
tant: always be sure of the decimal mode setting! 
Line 110 pulls the first byte from the stack. 
This is the number of parameters passed to the 
subroutine by BASIC, and we'll simply discard 
it, assuming the BASIC program sent two para- 
meters. 

Lines 120-150 pull the first argument from 
the stack and store it in the locations ARGIL 
and ARGIH for later processing. 
Lines 160-190 pull and store the second ar- 
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gument, placing it in the locations ARG2L and 

ARG2H. 

All right, so far we've placed the two numbers we're 
going to process in the proper memory locations, and 
we're ready to average them. 

One factor to consider at this point is an important 
thing to remember in assembly language: data over- 
flow. In this averaging subroutine, we must add the 
two arguments, then divide this number by two in 
order to get our answer. We must make sure that the 
place we use to store the result of the addition is large 
enough to hold it! For example, if we add the two- 
byte values 45960 and 37902, we get the result 83862, 
which requires a three-byte storage area. In this "be- 
ginner's" average routine, we have set up a three-byte 
area-TEMPL, TEMPM and TEMPH-to hold the 
result of the addition. 

Lines 200-290 add the two arguments and 
place them in the temporary hold area. 

Lines 300-320 divide the value found in the 
temporary storage area by two. Remember that 
performing a logical shift right (LSR) on a byte 
will divide its contents by two. The rotate right 
(ROR) operation is used on subsequent bytes of 
a multiple-byte shift. If you are unclear about this 
process, re-read issue 19's Boot Camp. After this 
divide is complete, the average of the two values 
is present in the TEMPL and TEMPM bytes. 

Lines 330-360 move the final result to RES- 
LO and RESHI, the two-byte location which 
returns the USR call's result to BASIC. 

Finally, Line 370 executes an RTS instruction, 
returning to BASIC. 

Figure 2 shows the BASIC code needed to execute 
this USR call. When two values are entered, the sub- 
routine retiu'ns the average of the two numbers to 
BASIC, which prints them. 

le FOR X=1536 TU 1599:READ N:POKE }<,N: 

NEKT K 

28 ? "EHTER UALUEl, VALUE2"; : TRAP 20:1 

MPUT VAL1,VAL2 

30 A=U5RC153e,VALI,UAL2} 

40 PRINT A 

50 GOTO 20 

60 DATA 216,104,104,141,65,6,104,141,6 

4,6,104,141,67,6,104,141,66,6,173,64,6 

,24,109,66,6 

70 DATA 141,68,6,173,65,6,109,67,6,141 

,69,6,169,0,105,0,141,70,6,78,70,6,110 

,69,6 

80 DATA 110,68,6,173,68,6,133,212,173, 

69,6,133,213,96 

Figure 2. 

As I mentioned earlier, the solution shown above 
is a typical beginner's answer to the problem. Let's 
examine a more efficient example, shown in Figure 3. 



10 RESLO 


= SD4 




20 RESHI 


= SD5 




30 


»= S0600 




0100 


CLD 


; DECIMAL MODE! 


0110 


PLA 


;DISCARD tt ARGS 



0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 



PLA 

5TA ARGIH 

PLA 

STA ARGIL 

PLA 

5TA RE5HX 

PLA 

CLC 

ADC ARGIL 

STA RESLO 

LDA RESHI 

ADC ARGIH 

STA RESHI 

ROR RESHI 

ROR RESLO 



RTS 
ARGIL H-**l 
ARGIH lt=»+l 

.END 



PULL ARG 1 HI 
AND SAUE IT 
PULL ARG 1 LO 
AND SAVE IT 
PULL ARG 2 HI 
SAVE IT 
PULL ARG 2 LO 
ADD IT TO 
ARG 1 LO 
STORE ANSHER 
GET ARG2 HI 
ADD TO ARG 1 
STORE ANSHER 
DIVIDE. . . 
RESULT BV 2 
AND EXIT! 



HI 



Figure 3. 



Looking at this new example, you will notice that 
it is much shorter than Figure 1 and has only two 
bytes reserved for data storage. Let's see why. 

Line 100 clears the decimal mode, as usual. 

Line 110 pulls the number of arguments oft 
the stack. 

Lines 120-150 perform the same function as 
in Figure 1, pulling the first argument off the 
stack and placing it in the ARGIL and ARGIH 
locations. 

From this point on, the program's operation is quite 
different from that of Figure 1. We no longer use the 
TEMP area to hold the results of the add. Instead, 
we use the two-byte BASIC result area, RESLO and 
RESHI. 

"Wait a minute," you say, "what about the overflow 
problem?" You're right; we'll have to consider that. 
However, because of the way this problem is struc- 
tured, we can use a simple trick involving the carry 
flag to eliminate the danger of an overflow occurring. 

In our problem, the largest argument values possible 
(using our two-byte format) are 65535 ($FFFF) and 
65535 ($FFFF), which, when added, give a result of 
131070 ($1FFFE). If we're going to store this value (as 
we did in Figure 1), we must have a three-byte field 
in which to do it. Figure 4 shows the three-byte field 
before and after the shift operation. Note that, after 
the shift, the two lower-order bytes contain $FFFF, 
which is, of course, the average of the values $FFFF 
and $FFFE 



TEMPH TEMPM 



TEMPL 



1 00000001 


11111111 


11111110 { 



r-!iH;»-i;MaB 

TEMPH TEMPM 



TEMPL 



|ooeooeoo 


11111111 


11111111 1 



SlFFFE 



SFFFF 



Figure 4. 

(contiriued on next page) 
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The thing that makes this particular problem easier 
to solve is the fact that, as soon as we add the values, 
we perform the right-shift operations to divide the 
answer by two. As you recall, when multi-byte values 
are added, the carry flag holds the bits that are to 
be carried to the next byte. In this case, only one bit 
ever gets canied to the third byte of TEMP, and, there- 
fore, we can simply leave that bit in the carry flag 
— rather than storing it in a third byte. Since that 
bit stays in the carry flag, we can use the rotate in- 
struction to shift the bit out of the carry flag and into 
the high-order byte of our result. Figure 5 shows the 
use of this technique with the same problem as Figure 
4. Note, once again, that the result is $FFFF, the cor- 
rect average. 



BEFORE ROTftTE: 



CARRY 





RESHI 



RESLO 



iiiimi 



11111110 



mMnMMEnm 

CftRRV RESHI RE5L0 





11111111 11111111 



Figure 5. 

Lines 160-170 pull the high-order byte of ar- 
gument 2 from the stack and place it in the lo- 
cation labeled RESHI. Remember, values stored 
in RESHI and RESLO will be returned to BA- 
SIC automatically. 

Line 180 pulls the low-orc^er byte of argument 
2 from the stack, leaving it in the accumulator. 

Lines 190-200, instead of storing the low byte 
of argument 2, add it to the low byte of argu- 
ment 1, which was stored earlier. The result of 
this add (the first part of a two-byte add) is stored 
in RESLO at Line 210. 

Lines 220-240 complete the addition process 
by adding ARGIH (the high byte of argument 
I) to RESHI (the high byte of argument 2, which 
we stored earlier), and storing the result in RES- 
HI. At this point— if we were averaging $FFFF 
and $FFFF-RESLO, RESHI and the carry flag 
would look exactly like the first part of Figure 
5 . We're now ready to divide this answer by two 
for our average. 

Line 250 performs a rotate right (ROR) on 
RESHI. This is the same as a shift operation, 
except that the carry flag is shifted into the left- 
most bit, and the rightmost bit is shifted into 
the carry flag. Internally, the operation l&oks like 
this: 

HE5HI CARRY 

*0 



CARRY 

1-. 



Line 260 performs another rotate right, but 
this time the byte RESLO is rotated. The carry 
from the previous rotate (Line 250) is shifted into 
the leftmost bit, and the rightmost bit is placed 
in the carry flag, like so: 



CARRY 

0-, 



RESLO 



11111110 



CARRY 

-^fol 



After this instruction, RESLO, RESHI and the car- 
ry flag will look like the second part of Figure 5, and 
all the average calculations are complete! 

At this point, all the program needs to do is return 
to BASIC, and it does so in Line 270 with an RTS 
instruction. 

Once again, this routine is written to reside on page 
6 of computer memory, and the BASIC code needed 
is shown in Figure 6. 

10 FOR X=1536 TO 1567:REAi> N:POKE K,N: 

NEXT X 

20 ? "EMTER UALUEl, VALUE2"; : TRAP 20:1 

NPUT UAL1,UAL2 

JO A=USRC1536,yALl,UAL2J 

40 PRINT A 

50 GOTO 20 

60 DATA 216,104,104,141,33,6,104,141,3 

2,6,104,133,213,104,24,10^,32,6,133,21 

2,165,213,109,33,6 

70 DATA 133,213,102,213,102,212,96 

Figure 6. 

(cantimied on next page) 
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11111111 



Talk to 
ANALOG Computing 

We're happy to announce that three members 
of our staff can now be regularly found on Com- 
puServe. If you're a CompuServe member, you 
can contact Tom Hudson, Charles Bachand or 
Art Leyenberger by leaving a message on the 
Atari SIG, which can be accessed by typing GO 
PCS-132 at any menu page. 

The Atari SIG has logged over 100,000 calls 
— with over 60,000 messages posted! They have 
a staff of highly competent SYSOPs, headed up 
by Ron Luks, who are more than happy to help 
you. Their program database contains well over 
a megabyte (that's one million bytes, folks!) of 
Atari programs that can be downloaded into 
your computer. 

So, if you need to get in touch with ANA- 
LOG Computing, you can now dc~) it through 
CompuServe. Our user numbers are: 

Tom Hudson 70775,424 

Charles Bachand 73765,646 

Art Leyenberger 71266,46 
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Run the program and try some different input. The 
program will print the average just like Figure 2 did, 
but with far less memory needed to perform the oper- 
ation. The moral: don't accept your first solution to 
any problem. Think it through and try to find the 
most efficient way to get the job done. 

Square off. 

Here's a routine that's a little different: an algorithm 
to calculate integer square roots! Figure 7 shows a flow- 
chart of the algorithm, which is very simple. 



0- 



INPUT 
NUMBER 




+ 




RESULT=1 

TEST=1 
SQADD=1 




♦ 






>^TEST^N,VES 
^N. NUMBER j^ 


RESULT= 
RESULT-1 


^Cno 




+ 


SQADD= 
SQADD+2 




PRINT 
RESULT 


* 




4 


TEST= 
TEST+SQADD 


f endJ 


♦ 


RESULT= 
RESULT+1 





^ 



Figure 7. 

Let's convert this flowchart into BASIC first, so we 
can get a "feel" for what's going on. Figure 8 shows 
the BASIC code corresponding to the flowchart. 

10 INPUT NUNBER 

26 RE5ULT=l:TEST=l:5«ftDD=l 

38 IF TE5T>NUMBER THEN RE5ULT=RESULT-1 

:? RESULT: GOTO 10 

40 5QADD=SQADD+2 : TE5T=TEST+SQADD : RE5UL 

T=RESULT+1:G0T0 30 

Figure 8. 



Type in this program and RUN it. When you are 
prompted for a value, type 9 and press RETURN. The 
computer will print out an answer of three, which 
is, of course, the square root of nine. Try typing \2 
and pressing RETURN. Once again, the computer 
will give an answer of three. What happened? Well, 
this is an integer square root routine, and it will re- 
turn only the integer portion of the answer. Since the 
actual square root of 12 is approximately 3.464, the 
integer result will be 3. 

Now let's write the same routine in assembly lan- 
guage. The subroutine will only require one argument, 
the number we wish to find the square root of. Let's 
keep the routlRs simple and limit the arguments to 
a range of 0-255. If we do this, all the program vari- 
ables can be one-byte areas, except for TEST. This 
is the variable compared to the argument to test for 
the end of the routine. If TEST is greater than the 
argument, the square root has been found. Since we 
are allowing arguments up to 255, TEST must be able 
to exceed 255 and, so, must be a two-byte value. 

Figure 9 shows the assembly language version of the 
square root routine. 



10 RESLO 


- 


$D4 




20 RESHI 


— 


5D5 




30 




»= 


$8600 




0100 




CLD 




; DECIMAL MODE! 


0110 




PLft 




; DISCARD tt ARCS 


0120 




PLA 




; DISCARD ARG HI 


0130 




PLA 




;PULL ARG LO 


0140 




STA 


NUMBER 


;and save it 


8150 




LDA 


ttl 


;PUT 1 IN. . . 


8160 




STA 


RESLO 


; RESULT, 
;TEST VALUE, 


0170 




STA 


TESTL 


0180 




STA 


SOADD , 


ISQRT ADD FIELD 


0198 




LDA 


tto 


IZERO OUT. . . 


0200 




STA 


RESHI 


; RESULT HI BYTE 


0210 




STA 


TESTH , 


;AND TEST HI 


0220 


SQLP 


LDA 


TESTH 


■IF TESTH > 0, 


0230 




ONE 


END 


;ME'RE DONE! 


0240 




LDA 


NUMBER 


■GET NUMBER, 


0250 




CMP 


TESTL J 


< TEST? 


0260 




BCS 


NOSQ 


NO, KEEP TRYING 


8270 


END 


DEC 


RESLO ; 


SUB 1 FROM ANS. 


0280 




RTS 




AND EKIT! 


0250 


N05a 


INC 


SQADD 


SQADD = 


0300 




INC 


SQADD , 


SQADD + 2 


0310 




LDA 


TESTL , 


GET TEST VALUE, 


0320 




CLC 




ADD THE 


0330 




ADC 


SQADD 


ADD FACTOR 


8340 




STA 


TESTL , 


AND STORE IT 


0350 




LDA 


TESTH , 


NOU HI BYTE 


0360 




ADC 


tto 




0370 




STA 


TESTH 




0380 




INC 


RESLO , 


INC RESULT 


0390 




JNP 


SQLP 


AND LOOP BACK! 



0488 NUMBER *-**\. 
8418 TESTL «=«+l 
8428 TESTH »=»*1 
8438 SQADD »=«+l 
0440 .END 

Figure 9. 

Line 100 clears the decimal mode. 

Line 110 pulls the number of arguments from 
the stack. Since this routine will always be a 
single-argument one, this value is discarded. 

Lines 120-140 pull the argument off the stack. 
Since we are only allowing values from 0-255, 
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the high byte of the argument is discarded. The 
low byte is placed in the location labeled NUM- 
BER. 

Lines 150-210 initialize the subroutine vari- 
ables. Note that Lines 190-210 set the high bytes 
of the result and the variable TEST to zero. Al- 
ways be sure your multi-byte variables are properly 
initialized. 

Lines 220-260 test for the end of the routine. 
In Lines 220-230, if the high byte of TEST is 
greater than zero, then we know TEST is great- 
er than NUMBER (which is only a one-byte vari- 
able), and the program branches to END. If the 
high byte of TEST is zero. Lines 240-260 will 
compare NUMBER to the low byte of TEST. If 
NUMBER is greater than TESTE, the branch 
to NOSQ is taken and processing continues. 

Lines 270-280 are used to exit the subroutine. 
Line 270 decrements the result by one, just like 
the BASIC program did in Line 30 of Figure 8. 
Line 280 executes an RTS instruction. 

Lines 290-300 add two to SQADD by incre- 
menting it twice. 

Lines 310-370 add SQADD to TEST. Note 
that, since SQADD is a single-byte value and 
TEST is a two-byte value, a dummy value of zero 
is added to the high byte of TEST. 

Line 380 adds one to the answer, stored in 
RESLO. This is done using the increment mem- 
ory (INC) instruction. 

Line 390 jumps back to SQLP to test the new 
square root value. 

Figure 10 shows the BASIC code used to execute 
the machine language version of the subroutine. Try 
values from 0-255 to verify that the program works 
properly. 

le FOR X=1536 TO 16e4:READ M:POKE H,H: 

NEKT K 

28 ' "ENTER VftLUE"; : TRAP 20: INPUT VALU 

E 

30 A::U5R<1536,UALUE} 

40 PRINT A 

50 GOTO 20 

60 DATA 216,184,104,104,141,69,6,169,1 

,133,212,141,70,6,141,72,6,169,0,133,2 

13,141,71,6,173 

78 DATA 71,6,208,8,173,69,6,205,70,6,1 

76,3,198,212,96,238,72,6,238,72,6,173, 

70,6,24 

88 DATA 109,72,6,141,70,6,173,71,6,105 

,0,141,71,6,230,212,76,24,6 

Figure 10. 

All of the programs we've written so far are fixed- 
argument subroutines. That is, the square root routine 
never uses more than one argument, and the average 
routine never uses less than two. Now let's take a look 
at a short program which will take as many arguments 
as you send it! 

Fun with arguments. 

Let's say you want to add a list of numbers, using 



10 RESLO 


- 


$D4 


20 RESHI 


- 


5D5 


38 




Hz: 


58600 


0100 




CLD 




one 




PLA 




0120 




STA 


ARGCT 


8130 




LDA 


no 


8140 




STA 


RESLO 


8158 




STA 


RESHI 


8168 


ARGLP 


PLA 




0178 




STA 


ARGHI 


0188 




PLA 




8198 




CLC 




8208 




ADC 


RESLO 


8210 




STA 


RESLO 


8220 




LDA 


ARGHI 


8230 




ADC 


RESHI 


8248 




STA 


RESHI 


0250 




DEC 


ARGCT 


0268 




BNE 


ARGLP 


8278 




RTS 




8298 


ARGHI 


«z«+l 


8388 


ARGCT 


H-**i. 


8318 




.END 



an assembly language subroutine. There's no reJJing 
how many numbers there will be, because it's differ- 
ent every time. 

Fortunately, the BASIC USR call mechanism will 
tell our subroutine exactly how many arguments it 
needs to process. Up until now, we've ignored this 
value, which is always the first number pulled off the 
stack. Figure 11 shows a program which uses this in- 
formation to add a variable number of values, return- 
ing the total to BASIC. 



^DECIMAL MODE! 
;GET n ARGS 
;AND SAVE IT 
;ZERO OUT. . . 
; RESULT AREA 

GET ARG HI 
SAVE IT 
GET ARG LO 
AND ADD. . . 
TO TOTAL, 
STORE HEM TOTAL 
GET HI BYTE, 
ADD TO TOTAL, 
SAVE NEN TOTAL 
1 LESS ARGUMENT 
BRANCH IF MORE 
ALL DONE! 



Figure 11. 

Let's look at the program and follow its logic. 

Line 100 clears the decimal mode, as usual. 

Lines 110-120 pull the number of arguments 
from the stack and store this value in the varia- 
ble ARGCT. 

Lines 130-150 zero out the total area, RES- 
LO and RESHI. This ensures that the adding 
routine will start with zero. 

Lines 160-170 pull the high byte of the argu- 
ment from the stack and place it in the location 
labeled ARGHI. 

Lines 180-210 pull the low byte of the argu- 
ment from the stack, add it to the low byte of 
the total, and store the result back in RESLO. 

Lines 220-240 add the high byte of the ar- 
gument to the high byte of the total, storing the 
result back in RESHI. 

Line 250 decrements the argument counter 
by one. 

Line 260 will branch back to ARGLP if the 
result of the decrement was not zero (more ar- 
guments to process). 

If there are no more arguments (ARGCT = 0), 
the program exits with the RTS instruction at 
Line 270. 

That's all there is to it! The BASIC code to use 
this USR call is shown in Figure 12. As it is, the rou- 
tine will add the numbers from 1 to 10, returning the 



result 55. Try using different values. Just be sure you 
have at least one value to add and that the total will 
not exceed 65535. 

10 FOR X=1536 TO 1569:READ NrPOKE H,H: 

HEKT H 

20 ft=USRC1536,l,2,3,4,5,6,7,8,9,10> 

30 PRINT A 

40 END 

50 DATA 216,104,141,35,6,169,0,133,212 

,133,213,104,141,34,6,104,24,101,212,1 

33,212,173,34,6,101 

60 DATA 213,133,213,206,35,6,208,234,9 

6 

Figure 12. 

The use of multiple-argument USR calls is almost 
unrestricted. The main thing to remember, as far as 
system limitations go, is that you can't have more than 
about 27 arguments. Otherwise, BASIC will give you 
an ERROR' 10 (argument stack overflow). Actually, 
27 arguments is more than you'll probably ever try, 
but I just thought I'd warn you! 

Until next time. . . 

Between now and next issue's Boot Camp, try us- 
ing and modifying these simple USR calls. Next time, 
we'll go even further into this interesting area of as- 
sembly language. D 



Here's a little contest that should keep all the code- 
crackers out there occupied. 

The numbers below, when decoded, are a message 
in standard Atari ASCII. The numbers are in the 
proper sequence, and have been encrypted using a 
simple algorithm. 



145 


211 


145 


185 255 1S6 112 88 


183 


174 


224 


34 145 126 226 178 


51 207 


L91 


129 188 234 4 191 


199 


175 


178 


243 197 16 118 43 


210 


198 


166 


241 237 194 211 94 


213 


171 


252 


246 233 178 12 218 


210 


203 


172 


129 133 219 23 186 


206 


170 


203 


141 126 246 117 203 


190 


250 


212 


206 22 160 197 161 


182 


183 


246 


20 53 141 



Decode the message, if you can, and send your so- 
lution to: 

Code-Cracker Contest 

c/o ANALOG Computing 

P.O. Box 23 
Worcester, MA 01603 
The first five entries we receive with the correct 
solution will win a free one-year cassette or disk 
subscription. All entries must be postmarked before 
January 1, 1985. 



ENGLISH 

SOFTWARE MAGAZINES 

Each month we find the best 
games, adventures and utilities 
from the top English computer 
mags and type them onto disk or 
cassette — for you. 
We guarantee a minimum of 12 top 
class programs every month, 
enough to fill both sides of a disk. 

JUST LOOK AT THESE PRICES 

DISK - $12.95 
CASSETTE - $11.50 

INCLUDING POSTAGE 

For your sample copy, send a 
cheque or money order to: 

COMPUTERTYPE 

7 BROOMALL AVENUE 
BROOMALL, R^ 19008 

and we will rush you your disk/cas- 
sette by return mail. 

Please specify your Atari computer 
type and RAM. 
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TEACHERS! 
PARENTS! 

^ ^ ^ 

CRASH FRENCH 

ON DISKETTE 

^ ^ i( 



FOR ATARI 800XL 

• GRAPHICS • ACCENTS • MENUS • 

Crash French in BASIC takes 
your Atari in serious new direc- 
tions. 

Crash French introduces the 
French language in a fun and 
friendly way. 

With Crash French menu se- 
lection, you can translate 279 
useful sentences right off the 
bat. Now, that's a home run! 

Order Crash French by send- 
ing your name, etc. to: 

HARDFACTS SOFTWARE 

P.O. BOX 269 

WATER MILL, N.Y. 11976 

(+7V2% IN NY) 



NOT AFFILIATED 
WITH ATARI, INC. 




$25 



©HARDFACTS SOFTWARE 1984 
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BACK ISSUES 



A.N.A.L.O.G.S°^|°° 




ISSUE 2 • Wasting Arrays • 
Atari's CPU • Download Terminal 
• Converting BASIC • Disk Files 




ISSUE 6 • GTIA Graphics • Audio 

in Your Programs • NOREM • 

Graphic Violence • Color Slot 

Machine 




ISSUE 9 

Keyboard • 

Forth-DOS 



Build Your Own 400 

Harvey Wallbanger • 

Letter Writer 




ISSUE 11 • Strings in BASIC • 

C:CHECK • Disk Cataloging Utility 

• Adventure in the Fifth Dimension 

• Moving Missiles in BASIC 




ISSUE 13 • Fine Scrolling Part 1 

• Roundup • Space Assault • 

Observational Astronomy • CIO 

Routines 
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ISSUE 14 • Fine Scrolling Part 2 

• Disassembler in BASIC • 
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ISSUE 15 • Fine Scrolling Part 3 

• Knights & Chalices • Music 

Synthesizer • Bricklayer's 

Nightmare • Keyboard Handler 




ISSUE 16 • Fine Scrolling Part 4 

• Create-A-Font • Bar Chart 

Subroutine • Shooting Stars • 3-D 

Object Rotation 






SPECIAL 
DISK 
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ISSUE 17 • Planelary Defense • 

Disk Miser • Live without DOS • 

Boot Camp • D:CHECK2 




ISSUE 18 • Crasti Dive • Fiie'em 

• Munch'in Ciimb'in • H:BUG • 

Adventure Reviews 




ISSUE 19 • Battle in the B-Ring • 
A Look at Modems • Bulletin 
Board Systems • Siege • Touch- 
Tone'^ Dialer 




ISSUE 20 • Buzz-zapl 
AlterDOS • Bacterion! 



All back issues $4.00 each 



Send check or money order to: 
ANALOG Computing Back Issues 
P.O. Box 615. Holmes. PA 19043 



Issues 2. 21. 22 and 23 are also still 

available. 

Order now— limited quantities available. 



MasterCard and VISA orders call: 

1-800-345-8112 

in PA. 1-800-662-2444 
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Coming 
soon in 

future 
issues 

of 
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Maniac! 



Stuntman 



Fill 'Et Up 




<» *'^ % ^ 




pavs 10 

PftVS zs 
PftVS S8 

' ♦ PftVS 78 

} i- i PAVS SB 

■ ai Mi PAVS IS* 

HIK BARS PAV5 i.«S 

SB S PAVS 2S» 

.' PAVS 2»»8 




Dino Battle 



Color Slot Machine 



Cubes 



Where can you get all of these programs 
(and dozens more!) for only $14.95? 




Triple Threat Dice 






3-D Graphs 



Sphere Demo 



- SETS PEM SIZE TO LARGE 

- SETS PEN SIZE TO MEDIUM 
S - SETS PEH SIZE TO SI 
E - SETS PEN TO ERASE MODE 

- SETS PEM TO DRAH MODE 

H - HELP... LISTS THE COMMANDS 

1 - STARTING POIMT FOR FILL 

2 - EHDIHG POIMT FOR FILL 

F - FILLS THE AREA HITH COLOR 

C - CHANCES BACKGROUND COLOR 

I - CHANGES BACKGROUND INTENSITY 

B - CHANGES PEN BRIGHTNESS 

CLEAR< - CLEARS THE SCREEN 

CTRL-L - LOADS PICTURE FROM TAPE 

CTRL-S - SAVES PICTURE TO TAPE 

CTRL-K - EXITS PROGRAM 




Leprechaun King 



Sketch Pad 



Harvey Wallbanger 



From the editors of 
A.N.A.L.O.G. Computing 
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COMPENDIUM 



The best ATARI® Home Qimputer Programs from the first ten issues of A.N.A.L.O.G. Computing Magazine. 
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The ANALOG Compendium is available at selected book and computer stores, or you can order it direct. Send 
a check or money order for $14.95 + $2 shipping and handling to: ANALOG Compendium, P. O. Box 615, Holmes. 
PA 19043. 

Or you can order by phone with MasterCard or VISA, Call toll free: 1-800-345-8112 (in PA call 
1-800-662-2444). For orders outside the U.S., add an additional $5 air mail, $2 surface. 
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